From 3a5a56bd038efaa81cbfb6c11a8c308fe8d29ec5 Mon Sep 17 00:00:00 2001
From: ichikawa <ichikawa>
Date: Tue, 2 Feb 1999 14:38:13 +0000
Subject: [PATCH] lisp/gnus-ofsetup.el (gnus-setup-for-offline): To work with
 external movemail program.

---
 ChangeLog            |    5 +++++
 lisp/gnus-ofsetup.el |   34 +++++++++++++++++++++++++---------
 2 files changed, 30 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 06a54e9..828f442 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-02-02  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+	* lisp/gnus-ofsetup.el (gnus-setup-for-offline): To work with
+	external movemail program.
+
 1999-02-01  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* lisp/gnus.el (gnus-version-number): Update to 6.10.057.
diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index dcbadfe..d75966c 100644
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -1,6 +1,6 @@
 ;;; gnus-ofsetup.el --- Setup advisor for Offline reading for Mail/News.
 ;;;
-;;; $Id: gnus-ofsetup.el,v 1.1.2.9 1999-01-31 23:14:36 yamaoka Exp $
+;;; $Id: gnus-ofsetup.el,v 1.1.2.10 1999-02-02 14:38:13 ichikawa Exp $
 ;;;
 ;;; Copyright (C) 1998 Tatsuya Ichikawa
 ;;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
@@ -213,16 +213,32 @@
 	    ;; Use mail-source.el
 	    (setq mail-source nil)
 	    (while (> i 0)
-	      (setq user (read-from-minibuffer "Mail Account name : "))
-	      (setq server (read-from-minibuffer "Mail server : "))
-	      (setq auth (completing-read
+	      (let ((user (read-from-minibuffer "Mail Account name : "))
+		    (server (read-from-minibuffer "Mail server : "))
+		    (auth (completing-read
 			  "Authentification Method (TAB to completion): "
 			  '(("pop" 1) ("apop" 2)) nil t nil))
-	      (setq mail-source
-		    (append mail-source
-			    (list
-			     (list
-			      auth :user user :server server))))
+		    (islisp (y-or-n-p "Do you use pop3.el to fetch mail? ")))
+		(if (not islisp)
+		    (let ((prog (read-file-name "movemail program name: "))
+			  (args (read-from-minibuffer "movemail options: ")))
+		      (setq mail-source
+			    (append mail-source
+				    (list
+				     (list
+				      auth
+				      :user user
+				      :server server
+				      :program prog
+				      :args (format "%s %s" args
+						    (concat "po:" user)))))))
+		  (setq mail-source
+			(append mail-source
+				(list
+				 (list
+				  auth
+				  :user user
+				  :server server))))))
 	      (setq i (- i 1)))
 	    ;; Replace "hoge" -> 'hoge
 	    (mapcar
-- 
1.7.10.4