From: ichikawa <ichikawa>
Date: Sun, 31 May 1998 10:30:47 +0000 (+0000)
Subject: update pop3-fma.el (Remove Japanese comment).
X-Git-Tag: ichikawa-199811302358~65
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5e35a983ba8065ec28b98f3014aaf04bc3693f73;p=elisp%2Fgnus.git-

update pop3-fma.el (Remove Japanese comment).
---

diff --git a/ChangeLog b/ChangeLog
index e91f957..708dc08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-05-31  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+	* pop3-fma.el: Remove japanese comment.
+	Update to pop3-fma.el version 0.11.
+	Small bug fix.
+
 1998-05-25  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
 
 	* lisp/gnus.el (gnus-version-number): Update to 6.3.2
diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 0fa5569..2a7b20b 100644
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -1,7 +1,7 @@
 ;; pop3-fma.el.el --- POP3 for Multiple Account for Gnus.
-;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. , Tatsuya Ichikawa 
+;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. , Tatsuya Ichikawa
 ;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
-;; Version: 0.10
+;; Version: 0.11
 ;; Keywords: mail , gnus , pop3
 ;;
 ;; SPECIAL THANKS
@@ -25,6 +25,7 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
 ;;
 ;;
 ;; How to use.
@@ -33,7 +34,7 @@
 ;;
 ;;  (autoload 'pop3-fma-set-pop3-password "pop3-fma")
 ;;  (add-hook 'gnus-load-hook 'pop3-fma-set-pop3-password)
-;;  (setq pop3-fma-spool-file-alist 
+;;  (setq pop3-fma-spool-file-alist
 ;;        '(
 ;;  	    "po:username0@mailhost0.your.domain0"
 ;;	    "po:username1@mailhost1.your.domain1"
@@ -49,6 +50,8 @@
 ;;                                         'lisp use pop3.el
 ;;                                         'exe use movemail
 ;;  pop3-fma-movemail-arguments    ... List of options of movemail program.
+;;
+;;; Code:
 
 (require 'cl)
 (require 'custom)
@@ -70,9 +73,21 @@
   :group 'mail
   :group 'news)
 
-(defconst pop3-fma-version-number "0.10")
+(defconst pop3-fma-version-number "0.11")
 (defconst pop3-fma-codename
-  "Feel the wind." ; 0.10
+;  "Feel the wind"		; 0.10
+  "My home town"  		; 0.11
+;  "On the road"		; 0.xx
+;  "Before generation of Love"	; 0.xx
+;  "Lonely Christmas eve"	; 0.xx
+;  "Rock'n Roll city"		; 0.xx
+;  "Money"			; 0.xx
+;  "Midnight blue train" 	; 0.xx
+;  "Still 19"       		; 0.xx
+;  "J boy"          		; 0.xx
+;  "Blood line"			; 0.xx
+;  "Star ring"			; 0.xx
+;  "Goodbye Game"		; 0.xx
   )
 (defconst pop3-fma-version (format "Multiple POP3 account utiliy for Gnus v%s - \"%s\""
 				       pop3-fma-version-number
@@ -80,7 +95,7 @@
 
 (defcustom pop3-fma-spool-file-alist nil
   "*Spoolfile to get mail using pop3 protocol.
- You should specify this variable like
+You should specify this variable like
  '(
    \"po:user1@mailhost1\"
    \"po:user2@mailhost2\"
@@ -90,8 +105,8 @@
 
 (defcustom pop3-fma-movemail-type 'lisp
   "*Type of movemail program.
- Lisp means nnmail-movemail-program is lisp function.
- Exe means nnmail-movemail-program is external program.
+Lisp means `nnmail-movemail-program' is lisp function.
+ Exe means `nnmail-movemail-program' is external program.
  Please do not use exe if you do not use Meadow."
   :group 'pop3-fma
   :type '(choice (const lisp)
@@ -108,7 +123,7 @@
 
 (defvar pop3-fma-movemail-program "movemail.exe"
   "*External program name your movemail.
- Please do not set this valiable non-nil if you do not use Meadow.")
+Please do not set this valiable non-nil if you do not use Meadow.")
 
 ;; Temporary variable
 (defvar hdr nil)
@@ -131,7 +146,7 @@
 		    (- (match-end (string-match "^.*@" inbox)) 1)))
 	(pop3-mailhost
 	 (substring inbox (match-end (string-match "^.*@" inbox)))))
-    (let ((pop3-password 
+    (let ((pop3-password
 	   (pop3-fma-read-passwd pop3-mailhost)))
       (message "Checking new mail user %s at %s..." pop3-maildrop pop3-mailhost)
       (if (and (eq system-type 'windows-nt)
@@ -151,7 +166,7 @@
 	    (apply 'call-process (concat
 				  exec-directory
 				  pop3-fma-movemail-program)
-		   nil nil nil 
+		   nil nil nil
 		   pop3-fma-movemail-arguments))
 	(pop3-movemail crashbox)))))
 ;;
@@ -168,10 +183,10 @@
    (list (pop3-fma-read-noecho
 	  (format "POP Password for %s at %s: " pop3-maildrop pop3-mailhost) t)))
   (if (not (assoc pop3-mailhost pop3-fma-password))
-      (setq pop3-fma-password 
+      (setq pop3-fma-password
 	    (append pop3-fma-password
 		    (list
-		     (list 
+		     (list
 		      pop3-mailhost
 		      pop3-maildrop
 		      passwd))))
@@ -196,7 +211,8 @@
   (setq nnmail-spool-file pop3-fma-spool-file-alist))
 ;;
 (defun pop3-fma-read-noecho (prompt &optional stars)
-  "Read a single line of text from user without echoing, and return it."
+  "Read a single line of text from user without echoing, and return it.
+Argument PROMPT ."
   (let ((ans "")
 	(c 0)
 	(echo-keystrokes 0)
@@ -258,4 +274,7 @@
 ;;
 (provide 'pop3-fma)
 ;;
-;; pop3-fma.el ends here.
\ No newline at end of file
+;; pop3-fma.el ends here.
+
+(provide 'pop3-fma)
+;;; pop3-fma.el ends here