[mew-dist 21087] mew-vars.el bug

[Koga Youichirou]

待っていればすぐ直るのでしょうけど、現状の cvs 版では make 
通りません。

Index: mew-vars.el
===================================================================
RCS file: /cvsmew/mew/mew-vars.el,v
retrieving revision 1.124
diff -u -r1.124 mew-vars.el
--- mew-vars.el	2002/07/01 06:30:54	1.124
+++ mew-vars.el	2002/07/02 01:40:46
@@ -607,24 +607,24 @@
 ;;; IMAP
 ;;;
 
-(defvar mew-imap-server "localhost"
+(defcustom mew-imap-server "localhost"
   "*The IMAP server name. If you want to use a remote IMAP server,
 set an appropriate value."
   :group 'mew-imap
   :type 'string)
 
-(defvar mew-imap-port "imap"
+(defcustom mew-imap-port "imap"
   "*The IMAP4 port. If you want to set it to a numeric value,
 use a string. (e.g. \"143\")"
   :group 'mew-imap
   :type 'string)
 
-(defvar mew-imap-ssh-server nil
+(defcustom mew-imap-ssh-server nil
   "*The name of SSH server which forwards the IMAP4 port."
   :group 'mew-imap
   :type '(choice string (const nil)))
 
-(defvar mew-imap-user (user-login-name)
+(defcustom mew-imap-user (user-login-name)
   "*The user name on the IMAP server."
   :group 'mew-IMAP
   :type 'string)
@@ -642,13 +642,13 @@
   :group 'mew-imap
   :type '(repeat (choice (const "CRAM-MD5") (const "LOGIN"))))
 
-(defvar mew-imap-size (* 54 1024) ;; 4K hdr + 50K bdy
+(defcustom mew-imap-size (* 54 1024) ;; 4K hdr + 50K bdy
   "*The limit of message size to be retrieved by IMAP.
 0 means no limit, retrives any messages."
   :group 'mew-imap
   :type 'integer)
 
-(defvar mew-imap-delete t)
+(defcustom mew-imap-delete t
   "*If t, messages on the IMAP server are deleted after retrieval. 
 If numeric, messages on the IMAP server are deleted N days after
 the first access. Otherwise they are not deleted."

----
こがよういちろう