Mercurial > emacs
diff lisp/gnus/nnimap.el @ 100993:a16e9f7c2536
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1513
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 09 Jan 2009 03:01:50 +0000 |
| parents | a9dc0e7c3f2b |
| children | d775b84fdd71 |
line wrap: on
line diff
--- a/lisp/gnus/nnimap.el Fri Jan 09 02:59:52 2009 +0000 +++ b/lisp/gnus/nnimap.el Fri Jan 09 03:01:50 2009 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, ;; 2007, 2008, 2009 Free Software Foundation, Inc. -;; Author: Simon Josefsson <jas@pdc.kth.se> +;; Author: Simon Josefsson <simon@josefsson.org> ;; Jim Radford <radford@robby.caltech.edu> ;; Keywords: mail @@ -163,6 +163,8 @@ before, either a function, or a list with group/regexp or group/function elements." :group 'nnimap + ;; FIXME: Doesn't allow `("my2server" ("INBOX" nnimap-split-fancy))' + ;; per example above. -- fx :type '(choice :tag "Rule type" (repeat :menu-tag "Single-server" :tag "Single-server list" @@ -460,11 +462,17 @@ (plist :key-type string :value-type string))) (defcustom nnimap-debug nil - "If non-nil, random debug spews are placed in *nnimap-debug* buffer. + "If non-nil, trace nnimap- functions into `nnimap-debug-buffer'. +Uses `trace-function-background', so you can turn it off with, +say, `untrace-all'. + Note that username, passwords and other privacy sensitive -information (such as e-mail) may be stored in the *nnimap-debug* -buffer. It is not written to disk, however. Do not enable this -variable unless you are comfortable with that." +information (such as e-mail) may be stored in the buffer. +It is not written to disk, however. Do not enable this +variable unless you are comfortable with that. + +This variable only takes effect when loading the `nnimap' library. +See also `nnimap-log'." :group 'nnimap :type 'boolean) @@ -555,8 +563,7 @@ (imap-mailbox-select group examine)) (let (minuid maxuid) (when (> (imap-mailbox-get 'exists) 0) - (imap-fetch (if imap-enable-exchange-bug-workaround "1,*:*" "1,*") - "UID" nil 'nouidfetch) + (imap-fetch-safe '("1,*" . "1,*:*") "UID" nil 'nouidfetch) (imap-message-map (lambda (uid Uid) (setq minuid (if minuid (min minuid uid) uid) maxuid (if maxuid (max maxuid uid) uid)))