From: ichikawa <ichikawa>
Date: Sat, 17 Oct 1998 01:31:38 +0000 (+0000)
Subject: Update
X-Git-Tag: gnus-6_8-199811302358~61
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fd132283a79a74be34329ed8f7399d369dd640eb;p=elisp%2Fgnus.git-

Update
---

diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 4f10cc8..964db97 100644
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -3,7 +3,7 @@
 ;;                                                           Yasuo Okabe
 ;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
 ;;         Yasuo OKABE <okabe@kuis.kyoto-u.ac.jp>
-;; Version: 1.12
+;; Version: 1.13
 ;; Keywords: mail , gnus , pop3
 ;;
 ;; SPECIAL THANKS
@@ -90,7 +90,7 @@
   :group 'mail
   :group 'news)
 
-(defconst pop3-fma-version-number "1.12")
+(defconst pop3-fma-version-number "1.13")
 (defconst pop3-fma-codename
 ;;  "Feel the wind"		; 0.10
 ;;  "My home town"  		; 0.11
@@ -101,7 +101,8 @@
 ;;  "J boy"          		; 1.00
 ;;  "Blood line"		; 1.10
 ;;  "Star ring"			; 1.11
-  "Goodbye Game"		; 1.12
+;;  "Goodbye Game"		; 1.12
+  "Love is Gamble"		; 1.13
   )
 (defconst pop3-fma-version (format "Multiple POP3 account utiliy for Gnus v%s - \"%s\""
 				       pop3-fma-version-number
@@ -153,6 +154,28 @@ Please do not set this valiable non-nil if you do not use Meadow.")
 (defvar movemail-output-buffer " *movemail-out*")
 (defvar pop3-fma-commandline-arguments nil)
 
+;;; To silence byte compiler
+(and
+ (fboundp 'eval-when-compile)
+ (eval-when-compile
+   (save-excursion
+     (beginning-of-defun)
+     (eval-region (point-min) (point)))
+   (let (case-fold-search)
+     (mapcar
+      (function
+       (lambda (symbol)
+	 (unless (boundp symbol)
+	   (make-local-variable symbol)
+	   (eval (list 'setq symbol nil)))))
+      '(:group
+	:prefix :type
+	pop3-maildrop
+	pop3-mailhost
+	))
+     (make-local-variable 'byte-compile-warnings)
+     (setq byte-compile-warnings nil))))
+
 (defun pop3-fma-init-message-hook ()
   (add-hook 'mime-edit-translate-hook 'pop3-fma-message-add-header))