From: ichikawa <ichikawa>
Date: Sun, 21 Feb 1999 09:04:08 +0000 (+0000)
Subject: 	* lisp/mail-source.el (mail-source-fetch-pop): Comment out
X-Git-Tag: t-gnus-6_10_059-00
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ca649fa9194f4fb6c28628880de835fc32b23036;p=elisp%2Fgnus.git-

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