From ca649fa9194f4fb6c28628880de835fc32b23036 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sun, 21 Feb 1999 09:04:08 +0000 Subject: [PATCH] * lisp/mail-source.el (mail-source-fetch-pop): Comment out postscript block - I do not know why it does not work. There is no Bug report from ding ML. --- ChangeLog | 4 ++++ lisp/mail-source.el | 21 +++++++++++---------- 2 files changed, 15 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 396d154..285ba45 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 1999-02-21 Tatsuya Ichikawa + * lisp/mail-source.el (mail-source-fetch-pop): Comment out + postscript block - I don't know why it does not work. + There is no Bug report from ding ML. + * lisp/gnus.el (gnus-version-number): Update to 6.10.059. (gnus-revision-number): Fresh start from 00. diff --git a/lisp/mail-source.el b/lisp/mail-source.el index c18203b..1e0ee37 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -353,16 +353,17 @@ If ARGS, PROMPT is used as an argument to `format'." (if result (progn (mail-source-callback callback server) - (when prescript - (if (fboundp prescript) - (funcall prescript) - (call-process shell-file-name nil nil nil - shell-command-switch - (format-spec - postscript - (format-spec-make - ?p password ?t mail-source-crash-box - ?s server ?P port ?u user)))))) +;; (when postscript +;; (if (fboundp postscript) +;; (funcall postscript) +;; (call-process shell-file-name nil nil nil +;; shell-command-switch +;; (format-spec +;; postscript +;; (format-spec-make +;; ?p password ?t mail-source-crash-box +;; ?s server ?P port ?u user)))))) + ) ;; We nix out the password in case the error ;; was because of a wrong password being given. (setq mail-source-password-cache -- 1.7.10.4