+ * gnus-start.el (gnus-check-bogus-newsgroups): Say how many groups

+ we're being queried about. Suggested by Dan Jacobson.

+

+ * nndoc.el (nndoc-type-alist): Do babyl before mime-parts. Suggested

+ by Jason Eisner.

+

+ * gnus-async.el (gnus-async-delete-prefetched-entry): Remove from hash

+ table, too. Suggested by Stefan Wiens.

+ (gnus-async-prefetched-article-entry): Use intern-soft to avoid growing

+ the table unnecessary. Suggested by Stefan Wiens.

+

+ * gnus-sum.el (gnus-summary-clear-local-variables): This is probably no

+ longer needed, and probably doesn't work either, as pointed out by

+ Stefan Wiens.

+ (gnus-summary-exit): Remove call to the clearing function.

+ (gnus-summary-exit-no-update): Ditto.

+

+ * gnus-art.el (gnus-summary-save-in-file): Use with-current-buffer

+ instead of gnus-eval-in-buffer-window to avoid popping up frames.

+ Reported by Stefan Monnier.

+ (gnus-summary-save-in-rmail): Ditto.

+

+ * gnus-sum.el (gnus-summary-select-article-buffer): Show only the

+ article buffer, instead of both the article buffer and the summary

+ buffer. Sort of suggested by Dan Jacobson.

+

+ * gnus-win.el (gnus-buffer-configuration): Add an only-article spec.

+

+ * nnmbox.el (nnmbox-read-mbox): Mark buffer for deletion on Gnus exit.

+ Suggested by Dan Jacobson.

+

+ * mm-encode.el (mm-content-transfer-encoding-defaults): Try to make the

+ documentation clearer.

+

+ * message.el (message-shorten-references): Comment on the number "21".

+ Suggested by Stefan Monnier.

+

+ * gnus-sum.el (gnus-summary-scroll-up): Add more documentation.

+ Suggested by Dan Jacobson.

+

+ * gnus.el (gnus-large-newsgroup): Mention

+ gnus-large-ephemeral-newsgroup. Suggested by Dan Jacobson.

+

+ * gnus-msg.el (gnus-summary-resend-message): When resending, don't

+ externalize attachments. Bug reported by Steve Wen.

+

+ * gnus.el (gnus-continuum-version): Make inactive, since it doesn't

+ really message anything to the user.

+

+ * nnmail.el (nnmail-article-group): Allow using the fancy split method

+ directly.

+

+ * nnimap.el (nnimap-request-group): Low higher than high to signal no

+ messages in empty groups.

+

+2010-10-01 Ted Zlatanov <tzz@lifelogs.com>

+

+ * nnimap.el (nnimap-request-group): Don't bug out when there's an empty

+ non-UIDNEXT group.

+

+2010-10-01 Lars Magne Ingebrigtsen <larsi@gnus.org>

+

+ * gnus-group.el (gnus-group-completing-read): Return the symbol name,

+ not the value from the collection.

+

+ * nnimap.el (nnimap-update-info): Ignore groups that have no UIDNEXT

+ values. This sometimes happens on some groups that have no info.

+ (nnimap-request-newgroups): New function.

+

+2010-10-01 Teodor Zlatanov <tzz@lifelogs.com>

+

+ * gnus-registry.el (gnus-registry-install-nnregistry): Move the feature

+ check into `gnus-registry-initialize'.

+ (gnus-registry-initialize): Ditto.

+ Fix and extend header docs.

+

+2010-10-01 Lars Magne Ingebrigtsen <larsi@gnus.org>

+

+ (with-current-buffer gnus-save-article-buffer

+ (with-current-buffer gnus-save-article-buffer

+ (with-current-buffer gnus-save-article-buffer

+ (with-current-buffer gnus-save-article-buffer

+ (with-current-buffer save-buffer

+ (delq entry gnus-async-article-alist))

+ (unintern (car entry) gnus-async-hashtb)))

+ (assq (intern-soft (format "%s-%d" group article)

+ gnus-async-hashtb)

+ (let* ((collection (or collection (or gnus-active-hashtb [0])))

+ (choices (mapcar (lambda (symbol)

+ (remove-if-not 'symbolp collection)))

+ (if (symbol-value (intern-soft group collection))

+ group

+ (mm-encode-coding-string group (gnus-group-name-charset nil group)))))

+ (let ((gnus-gcc-externalize-attachments nil))

+ (message-resend address)))

+;; (require 'nnregistry) ;; optional, or see below (automatically calls `gnus-registry-install-nnregistry' when `gnus-registry-initialize' is called)

+;; (gnus-registry-install-nnregistry) ;; optional, or see above (loading nnregistry makes it unnecessary)

+ (when (featurep 'nnregistry)

+ (gnus-registry-install-nnregistry))

+ (setq gnus-refer-article-method

+ (delete-dups

+ (append

+ (if (listp gnus-refer-article-method)

+ gnus-refer-article-method

+ (list gnus-refer-article-method))

+ (list 'nnregistry)))))

+ (format "Remove bogus group %%s (of %d groups)? " (length bogus))

+ "Reconfigure windows to show the article buffer."

+ (select-window (get-buffer-window gnus-article-buffer))

+ (gnus-configure-windows 'only-article t)))

+Argument LINES specifies lines to be scrolled up (or down if negative).

+If no article is selected, then the current article will be selected first."

+Argument LINES specifies lines to be scrolled down (or up if negative).

+If no article is selected, then the current article will be selected first."

+ (only-article

+ (vertical 1.0

+ (article 1.0 point)))

+If it is nil, no confirmation is required.

+

+Also see `gnus-large-ephemeral-newsgroup'."

+ '(("" . "text/plain")

+ (".1" . "text/plain") ;; Manual pages

+ (".3" . "text/plain")

+ (".8" . "text/plain")

+ (".dpatch". "test/x-patch")

+ (".pod" . "text/plain")

+ ;; 21 is the number suggested by USEAGE.

+This list is only consulted when encoding MIME parts in the

+bodies -- not for the regular non-MIME-ish messages."

+ (mime-parts

+ (generate-head-function . nndoc-generate-mime-parts-head)

+ (article-transform-function . nndoc-transform-mime-parts))

+ (setq high (or (if uidnext

+ (1- uidnext)

+ (nth 3 (car marks)))

+ 0)

+ low (or (nth 4 (car marks)) uidnext 1)))))

+(deffoo nnimap-request-newgroups (date &optional server)

+ (nnimap-possibly-change-group nil server)

+ (with-current-buffer nntp-server-buffer

+ (erase-buffer)

+ (dolist (group (with-current-buffer (nnimap-buffer)

+ (nnimap-get-groups)))

+ (unless (assoc group nnimap-current-infos)

+ ;; Insert dummy numbers here -- they don't matter.

+ (insert (format "%S 0 1 y\n" group))))))

+

+ (when (and marks

+ ;; Ignore groups with no UIDNEXT values.

+ (nth 4 marks))

+This variable can also have a function as its value, and it can

+also have a fancy split method as its value. See

+`nnmail-split-fancy' for an explanation of that syntax."

+ (if (or (and (symbolp nnmail-split-methods)

+ (fboundp nnmail-split-methods))

+ (and (listp nnmail-split-methods)

+ ;; Not a regular split method, so it has to be a

+ ;; fancy one.

+ (not (let ((top-element (car-safe nnmail-split-methods)))

+ (and (= 2 (length top-element))

+ (stringp (nth 0 top-element))

+ (stringp (nth 1 top-element)))))))

+ (let* ((method-function

+ (if (and (symbolp nnmail-split-methods)

+ (fboundp nnmail-split-methods))

+ nnmail-split-methods

+ 'nnmail-split-fancy))

+ (split

+ (condition-case error-info

+ ;; `nnmail-split-methods' is a function, so we

+ ;; just call this function here and use the

+ ;; result.

+ (or (funcall method-function)

+ (and (not nnmail-inhibit-default-split-group)

+ '("bogus")))

+ (error

+ (nnheader-message

+ 5 "Error in `nnmail-split-methods'; using `bogus' mail group: %S" error-info)

+ (sit-for 1)

+ '("bogus")))))

+ (gnus-add-buffer)