* wl/wl-summary.el (wl-summary-mode): Check with fboundp before calling `make-local...

[elisp/wanderlust.git] / elmo / elmo-vars.el

diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index f09a4e6..5872699 100644 (file)
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -32,8 +32,8 @@
 
 ;; silence byte compiler
 (eval-when-compile
-  (defun-maybe dynamic-link (a))
-  (defun-maybe dynamic-call (a b)))
+  (defalias-maybe 'dynamic-link 'ignore)
+  (defalias-maybe 'dynamic-call 'ignore))
 
 ;; bind colon keywords for old Emacsen.
 (dont-compile
@@ -121,6 +121,12 @@ you have to add it to `elmo-digest-flags'.
   "A hook called just before the nntp posting.")
 
 ;;; IMAP4
+(defcustom elmo-imap4-set-seen-flag-explicitly
+  nil
+  "*Set Seen flag explicitly (avoid bug in Google Mail)"
+  :type 'boolean
+  :group 'elmo
+  :group 'elmo-setting)
 
 (defcustom elmo-imap4-default-server "localhost"
   "*Default IMAP4 server."
@@ -427,18 +433,9 @@ Arguments for this function are NAME, BUFFER, HOST and SERVICE.")
 (defvar elmo-use-decoded-cache (featurep 'xemacs)
   "Use cache of decoded mime charset string.")
 
-(defvar elmo-display-progress-threshold 20
-  "*Displaying progress gauge if number of messages are more than this value.")
-
 (defvar elmo-inhibit-number-mapping nil
   "Global switch to inhibit number mapping (e.g. Inhibit UIDL on POP3).")
 
-(defvar elmo-display-retrieval-progress-threshold 30000
-  "*Don't display progress if the message size is smaller than this value.")
-
-(defvar elmo-inhibit-display-retrieval-progress nil
-  "Global switch to inhibit display progress of each message's retrieval.")
-
 (defvar elmo-dop-queue nil
   "Global variable for storing disconnected operation queues.")