From fd132283a79a74be34329ed8f7399d369dd640eb Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sat, 17 Oct 1998 01:31:38 +0000 Subject: [PATCH] Update --- lisp/pop3-fma.el | 29 ++++++++++++++++++++++++++--- 1 file changed, 26 insertions(+), 3 deletions(-) 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 ;; Yasuo OKABE -;; 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)) -- 1.7.10.4