Mercurial > emacs
comparison lisp/gnus/gnus-start.el @ 111312:0c7c9736f766
Merge changes made in Gnus trunk.
nnimap.el (nnimap-parse-line): Don't bug out oddly formed replies (bug #7311).
gnus-cite.el (gnus-article-fill-cited-article): Minimize the long-lines case by only filling the long lines.
gnus-start.el (gnus-ask-server-for-new-groups): Return the new groups.
gnus-group.el (gnus-group-find-new-groups): Display all the new groups.
gnus-start.el (gnus-find-new-newsgroups): Return the list of new groups.
nnimap.el (nnimap-request-group): Store the new updated info.
nnimap.el (nnimap-request-group): Select the group when we don't know whether it exists or not.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 01 Nov 2010 22:21:10 +0000 |
| parents | 0989a3a741bd |
| children | b527d5f89f7f |
comparison
equal
deleted
inserted
replaced
| 111311:cf216ba9dc87 | 111312:0c7c9736f766 |
|---|---|
| 1143 (when new-newsgroups | 1143 (when new-newsgroups |
| 1144 (gnus-subscribe-hierarchical-interactive new-newsgroups)) | 1144 (gnus-subscribe-hierarchical-interactive new-newsgroups)) |
| 1145 (if (> groups 0) | 1145 (if (> groups 0) |
| 1146 (gnus-message 5 "%d new newsgroup%s arrived." | 1146 (gnus-message 5 "%d new newsgroup%s arrived." |
| 1147 groups (if (> groups 1) "s have" " has")) | 1147 groups (if (> groups 1) "s have" " has")) |
| 1148 (gnus-message 5 "No new newsgroups.")))))) | 1148 (gnus-message 5 "No new newsgroups.")) |
| 1149 groups)))) | |
| 1149 | 1150 |
| 1150 (defun gnus-matches-options-n (group) | 1151 (defun gnus-matches-options-n (group) |
| 1151 ;; Returns `subscribe' if the group is to be unconditionally | 1152 ;; Returns `subscribe' if the group is to be unconditionally |
| 1152 ;; subscribed, `ignore' if it is to be ignored, and nil if there is | 1153 ;; subscribed, `ignore' if it is to be ignored, and nil if there is |
| 1153 ;; no match for the group. | 1154 ;; no match for the group. |
| 1241 (gnus-message 5 "%d new newsgroup%s arrived" | 1242 (gnus-message 5 "%d new newsgroup%s arrived" |
| 1242 groups (if (> groups 1) "s have" " has")) | 1243 groups (if (> groups 1) "s have" " has")) |
| 1243 (gnus-message 5 "No new newsgroups")) | 1244 (gnus-message 5 "No new newsgroups")) |
| 1244 (when got-new | 1245 (when got-new |
| 1245 (setq gnus-newsrc-last-checked-date new-date)) | 1246 (setq gnus-newsrc-last-checked-date new-date)) |
| 1246 got-new)) | 1247 new-newsgroups)) |
| 1247 | 1248 |
| 1248 (defun gnus-subscribe-group (group &optional previous method) | 1249 (defun gnus-subscribe-group (group &optional previous method) |
| 1249 "Subscribe GROUP and put it after PREVIOUS." | 1250 "Subscribe GROUP and put it after PREVIOUS." |
| 1250 (gnus-group-change-level | 1251 (gnus-group-change-level |
| 1251 (if method | 1252 (if method |