* 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.

diff --git a/ChangeLog b/ChangeLog
index 396d154..285ba45 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1999-02-21  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
+       * 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 (file)
--- 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