comparison lisp/gnus/gnus-group.el @ 112432:27320025ed54

Merge chages made in Gnus trunk. mailcap.el (mailcap-mime-extensions): Rename text/org to text/x-org. gnus-draft.el (gnus-group-send-queue): Update the queue group in the group buffer after sending the queue. gnus-draft.el (gnus-group-send-queue): Really refresh the queue group after sending. gnus-agent.el (gnus-agent-send-mail): Ditto. gnus-group.el (gnus-group-refresh-group): New convenience function. message.el (message-bogus-addresses): Remove commented-out value. message.el (message-check-recipients): Display the encoded version of the bogus address if they differ. flow-fill.el (fill-flowed): Make `delete-space' option correspond to "DelSp" parameter in RFC3676. gnus-sum.el (gnus-summary-move-article): Protect against backends (i.e., nnimap) returning nil as the article number.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Sun, 23 Jan 2011 00:34:08 +0000
parents 61f7601898b1
children
comparison
equal deleted inserted replaced
112431:7a578da192b9 112432:27320025ed54
1676 (gnus-create-image (expand-file-name image-path)) 1676 (gnus-create-image (expand-file-name image-path))
1677 '(:ascent center))) 1677 '(:ascent center)))
1678 " ")) 1678 " "))
1679 " ")) 1679 " "))
1680 1680
1681
1682 (defun gnus-group-refresh-group (group)
1683 (gnus-activate-group group)
1684 (gnus-get-unread-articles-in-group (gnus-get-info group)
1685 (gnus-active group))
1686 (gnus-group-update-group group t))
1687
1681 (defun gnus-group-update-group (group &optional visible-only) 1688 (defun gnus-group-update-group (group &optional visible-only)
1682 "Update all lines where GROUP appear. 1689 "Update all lines where GROUP appear.
1683 If VISIBLE-ONLY is non-nil, the group won't be displayed if it isn't 1690 If VISIBLE-ONLY is non-nil, the group won't be displayed if it isn't
1684 already." 1691 already."
1685 (with-current-buffer gnus-group-buffer 1692 (with-current-buffer gnus-group-buffer