/[emacs]/emacs/lisp/gnus/nnimap.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnimap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by miles, Mon Sep 20 12:03:05 2004 UTC revision 1.19 by kfstorm, Wed Feb 9 15:50:37 2005 UTC
# Line 211  variable is the symbol `default' the def Line 211  variable is the symbol `default' the def
211  used (which currently is nil, unless you use a statistical  used (which currently is nil, unless you use a statistical
212  spam.el test); if this variable is another non-nil value bodies  spam.el test); if this variable is another non-nil value bodies
213  will be downloaded."  will be downloaded."
214    :version "21.4"    :version "22.1"
215    :group 'nnimap    :group 'nnimap
216    :type '(choice (const :tag "Let system decide" deault)    :type '(choice (const :tag "Let system decide" deault)
217                   boolean))                   boolean))
# Line 223  will be downloaded." Line 223  will be downloaded."
223  This means that errors caught by nnimap when closing the mailbox will  This means that errors caught by nnimap when closing the mailbox will
224  not prevent Gnus from updating the group status, which may be harmful.  not prevent Gnus from updating the group status, which may be harmful.
225  However, it increases speed."  However, it increases speed."
226    :version "21.4"    :version "22.1"
227    :type 'boolean    :type 'boolean
228    :group 'nnimap)    :group 'nnimap)
229    
# Line 232  However, it increases speed." Line 232  However, it increases speed."
232  This increases the speed of closing mailboxes (quiting group) but may  This increases the speed of closing mailboxes (quiting group) but may
233  decrease the speed of selecting another mailbox later.  Re-selecting  decrease the speed of selecting another mailbox later.  Re-selecting
234  the same mailbox will be faster though."  the same mailbox will be faster though."
235    :version "21.4"    :version "22.1"
236    :type 'boolean    :type 'boolean
237    :group 'nnimap)    :group 'nnimap)
238    
# Line 245  more carefully for new mail. Line 245  more carefully for new mail.
245    
246  In summary, the default is O((1-p)*k+p*n) and changing it to nil makes  In summary, the default is O((1-p)*k+p*n) and changing it to nil makes
247  it O(n).  If p is small, then the default is probably faster."  it O(n).  If p is small, then the default is probably faster."
248    :version "21.4"    :version "22.1"
249    :type 'boolean    :type 'boolean
250    :group 'nnimap)    :group 'nnimap)
251    
# Line 826  function is generally only called when G Line 826  function is generally only called when G
826    
827  (defun nnimap-make-callback (article gnus-callback buffer)  (defun nnimap-make-callback (article gnus-callback buffer)
828    "Return a callback function."    "Return a callback function."
829    `(lambda ()    `(lambda ()
830       (nnimap-callback ,article ,gnus-callback ,buffer)))       (nnimap-callback ,article ,gnus-callback ,buffer)))
831    
832  (defun nnimap-callback (article gnus-callback buffer)  (defun nnimap-callback (article gnus-callback buffer)
# Line 876  function is generally only called when G Line 876  function is generally only called when G
876                                     (imap-error-text nnimap-server-buffer))                                     (imap-error-text nnimap-server-buffer))
877                  (cons group article)))                  (cons group article)))
878            (add-hook 'imap-fetch-data-hook            (add-hook 'imap-fetch-data-hook
879                      (nnimap-make-callback article                      (nnimap-make-callback article
880                                            nnheader-callback-function                                            nnheader-callback-function
881                                            nntp-server-buffer))                                            nntp-server-buffer))
882            (imap-fetch-asynch article part nil nnimap-server-buffer)            (imap-fetch-asynch article part nil nnimap-server-buffer)
883            (cons group article))))))            (cons group article))))))
# Line 930  function is generally only called when G Line 930  function is generally only called when G
930    "Update the unseen count in `nnimap-mailbox-info'."    "Update the unseen count in `nnimap-mailbox-info'."
931    (gnus-sethash    (gnus-sethash
932     (gnus-group-prefixed-name group server)     (gnus-group-prefixed-name group server)
933     (let ((old (gnus-gethash-safe (gnus-group-prefixed-name group server)     (let ((old (gnus-gethash-safe (gnus-group-prefixed-name group server)
934                                   nnimap-mailbox-info)))                                   nnimap-mailbox-info)))
935       (list (nth 0 old) (nth 1 old)       (list (nth 0 old) (nth 1 old)
936             (imap-mailbox-status group 'unseen nnimap-server-buffer)             (imap-mailbox-status group 'unseen nnimap-server-buffer)
# Line 1043  function is generally only called when G Line 1043  function is generally only called when G
1043                               'asyncgroups                               'asyncgroups
1044                             'slowgroups)                             'slowgroups)
1045                           (list group (imap-mailbox-status-asynch                           (list group (imap-mailbox-status-asynch
1046                                        group '(uidvalidity uidnext unseen)                                        group '(uidvalidity uidnext unseen)
1047                                        nnimap-server-buffer))))                                        nnimap-server-buffer))))
1048            (dolist (asyncgroup asyncgroups)            (dolist (asyncgroup asyncgroups)
1049              (let ((group (nth 0 asyncgroup))              (let ((group (nth 0 asyncgroup))
# Line 1054  function is generally only called when G Line 1054  function is generally only called when G
1054                                (nth 0 (gnus-gethash (gnus-group-prefixed-name                                (nth 0 (gnus-gethash (gnus-group-prefixed-name
1055                                                      group server)                                                      group server)
1056                                                     nnimap-mailbox-info))                                                     nnimap-mailbox-info))
1057                                (imap-mailbox-get 'uidvalidity group                                (imap-mailbox-get 'uidvalidity group
1058                                                  nnimap-server-buffer)))                                                  nnimap-server-buffer)))
1059                          (not (string=                          (not (string=
1060                                (nth 1 (gnus-gethash (gnus-group-prefixed-name                                (nth 1 (gnus-gethash (gnus-group-prefixed-name
# Line 1310  function is generally only called when G Line 1310  function is generally only called when G
1310                               (let (msgid)                               (let (msgid)
1311                                 (and (setq msgid                                 (and (setq msgid
1312                                            (nnmail-fetch-field "message-id"))                                            (nnmail-fetch-field "message-id"))
1313                                      (nnmail-cache-insert msgid                                      (nnmail-cache-insert msgid
1314                                                           to-group                                                           to-group
1315                                                           (nnmail-fetch-field "subject"))))))                                                           (nnmail-fetch-field "subject"))))))
1316                           ;; Add the group-art list to the history list.                           ;; Add the group-art list to the history list.
# Line 1418  function is generally only called when G Line 1418  function is generally only called when G
1418                          nnmail-expiry-wait)))                          nnmail-expiry-wait)))
1419            (cond ((or force (eq days 'immediate))            (cond ((or force (eq days 'immediate))
1420                   (let ((oldarts (imap-search                   (let ((oldarts (imap-search
1421                                   (concat "UID "                                   (concat "UID "
1422                                           (imap-range-to-message-set artseq)))))                                           (imap-range-to-message-set artseq)))))
1423                     (when oldarts                     (when oldarts
1424                       (nnimap-expiry-target oldarts group server)                       (nnimap-expiry-target oldarts group server)
1425                       (when (imap-message-flags-add                       (when (imap-message-flags-add
1426                              (imap-range-to-message-set                              (imap-range-to-message-set
1427                               (gnus-compress-sequence oldarts)) "\\Deleted")                               (gnus-compress-sequence oldarts)) "\\Deleted")
1428                         (setq articles (gnus-set-difference                         (setq articles (gnus-set-difference
1429                                         articles oldarts))))))                                         articles oldarts))))))
# Line 1437  function is generally only called when G Line 1437  function is generally only called when G
1437                     (when oldarts                     (when oldarts
1438                       (nnimap-expiry-target oldarts group server)                       (nnimap-expiry-target oldarts group server)
1439                       (when (imap-message-flags-add                       (when (imap-message-flags-add
1440                              (imap-range-to-message-set                              (imap-range-to-message-set
1441                               (gnus-compress-sequence oldarts)) "\\Deleted")                               (gnus-compress-sequence oldarts)) "\\Deleted")
1442                         (setq articles (gnus-set-difference                         (setq articles (gnus-set-difference
1443                                         articles oldarts)))))))))))                                         articles oldarts)))))))))))
1444    ;; return articles not deleted    ;; return articles not deleted
1445    articles)    articles)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26