Mercurial > emacs
comparison lisp/gnus/gnus-srvr.el @ 111986:faa4a1c986c6
Merge changes made in Gnus trunk.
nnimap.el (nnimap-wait-for-response): Always look (at least) at the previous line.
nnimap.el (nnimap-quirk): New function.
(nnimap-retrieve-group-data-early): Use it.
(nnimap-quirks): New alist.
gnus.texi (Foreign Groups): Added clarification of foreign groups.
gnus-sum.el (gnus-summary-push-marks-to-backend): Fix the logic for copying read-ness to the backends.
gnus-group.el (gnus-group-kill-group): Notify the backend that the group has been killed.
(gnus-group-yank-group): Ditto.
gnus-start.el (gnus-subscribe-newsgroup): Notify the backend.
nnir.el: Improve customizations.
gnus.texi (Archived Messages): Removed outdated comment and text.
nnfolder.el (nnfolder-save-all-buffers): Refactor out into its own function.
(nnfolder-request-expire-articles): Save all the buffers after doing expiry.
nnmail.el (nnmail-expiry-target-group): Revert the "all articles are the last article", since that led to serious performance regressions when expiring nnml groups.
gnus-html.el (gnus-html-schedule-image-fetching): Make sure the HTML fetching stops when Gnus exits.
gnus-srvr.el: Avoid passing nil regexp argument to delete-matching-lines.
auth-source.el (auth-source-gpg-encrypt-to): New variable to set the list of recipient keys, or use symmetric encryption if not a list.
(auth-source-create): Use it to make `epa-file-encrypt-to' local for an EPA override, replacing the call to `netrc-store-data'.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Thu, 16 Dec 2010 22:22:28 +0000 |
parents | ed117caa918e |
children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
111979:b8b55da43e95 | 111986:faa4a1c986c6 |
---|---|
764 nil) | 764 nil) |
765 (t | 765 (t |
766 (with-current-buffer nntp-server-buffer | 766 (with-current-buffer nntp-server-buffer |
767 (let ((cur (current-buffer))) | 767 (let ((cur (current-buffer))) |
768 (goto-char (point-min)) | 768 (goto-char (point-min)) |
769 (unless (string= gnus-ignored-newsgroups "") | 769 (unless (or (null gnus-ignored-newsgroups) |
770 (string= gnus-ignored-newsgroups "")) | |
770 (delete-matching-lines gnus-ignored-newsgroups)) | 771 (delete-matching-lines gnus-ignored-newsgroups)) |
771 ;; We treat NNTP as a special case to avoid problems with | 772 ;; We treat NNTP as a special case to avoid problems with |
772 ;; garbage group names like `"foo' that appear in some badly | 773 ;; garbage group names like `"foo' that appear in some badly |
773 ;; managed active files. -jh. | 774 ;; managed active files. -jh. |
774 (if (eq (car method) 'nntp) | 775 (if (eq (car method) 'nntp) |
990 gnus-level-default-subscribed) | 991 gnus-level-default-subscribed) |
991 ;; If it is a killed group or a zombie, feed it to the | 992 ;; If it is a killed group or a zombie, feed it to the |
992 ;; mechanism for new group subscription. | 993 ;; mechanism for new group subscription. |
993 (gnus-call-subscribe-functions | 994 (gnus-call-subscribe-functions |
994 gnus-browse-subscribe-newsgroup-method | 995 gnus-browse-subscribe-newsgroup-method |
995 group))) | 996 group) |
997 (gnus-request-update-group-status group 'subscribe))) | |
996 (delete-char 1) | 998 (delete-char 1) |
997 (insert (let ((lvl (gnus-group-level group))) | 999 (insert (let ((lvl (gnus-group-level group))) |
998 (cond | 1000 (cond |
999 ((< lvl gnus-level-unsubscribed) ? ) | 1001 ((< lvl gnus-level-unsubscribed) ? ) |
1000 ((< lvl gnus-level-zombie) ?U) | 1002 ((< lvl gnus-level-zombie) ?U) |