mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Merge changes made in Gnus trunk.

Browse source 
gnus.texi: Remove mentions of `recent', which are now obsolete.
 (Interactive): Document `quiet'.
nnimap.el: Redo the charset handling.  Let Gnus encode the names, as it does with all other backends, but decode the names immediately after getting them.
gnus-group.el (gnus-group-name-charset): Always return `utf-7' when decoding nnimap groups.
gnus.el (gnus-variable-list): Don't save `gnus-format-specs' in the newsrc file.  It doesn't seem like an important optimisation any more.
nnimap.el (nnimap-transform-headers): Fix regexp to be less prone to overflows.
gnus.el (gnus-article-mark-lists): Remove `recent'.
 (gnus-interactive-exit): Extend to `quiet'.
gnus-sum.el (gnus-offer-save-summaries): Use it.
gnus-art.el (gnus-treat-hide-citation-maybe): Add more doc to the string.
plstore.el (plstore--get-buffer): Silence compiler warnings by renaming function arguments from `this'.
gnus-sum.el (gnus-newsgroup-recent): Removed.
gnus-spec.el (gnus-lrm-string-p): `bidi-string-mark-left-to-right' has been renamed.
 (gnus-lrm-string-p): Include RLM and PDF, too.
gnus-int.el (gnus-open-server): Make the "denied" message clearer (bug#9225).
This commit is contained in:
Gnus developers 2011-09-10 23:30:53 +00:00 • committed by Katsumi Yamaoka
parent 3199b96fc5
commit e21bac426b
12 changed files with 134 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lisp/gnus/gnus-sum.el
View file

@ -1499,9 +1499,6 @@ the type of the variable (string, integer, character, etc).")
(defvar gnus-newsgroup-forwarded nil
"List of articles that have been forwarded in the current newsgroup.")
(defvar gnus-newsgroup-recent nil
"List of articles that have are recent in the current newsgroup.")
(defvar gnus-newsgroup-expirable nil
"Sorted list of articles in the current newsgroup that can be expired.")
@ -1578,7 +1575,6 @@ This list will always be a subset of gnus-newsgroup-undownloaded.")
gnus-newsgroup-saved
gnus-newsgroup-replied
gnus-newsgroup-forwarded
gnus-newsgroup-recent
gnus-newsgroup-expirable
gnus-newsgroup-killed
gnus-newsgroup-unseen
@ -3743,8 +3739,6 @@ buffer that was in action when the last article was fetched."
gnus-forwarded-mark)
((memq gnus-tmp-current gnus-newsgroup-saved)
gnus-saved-mark)
((memq gnus-tmp-number gnus-newsgroup-recent)
gnus-recent-mark)
((memq gnus-tmp-number gnus-newsgroup-unseen)
gnus-unseen-mark)
(t gnus-no-mark)))
@ -5395,8 +5389,6 @@ or a straight list of headers."
gnus-forwarded-mark)
((memq number gnus-newsgroup-saved)
gnus-saved-mark)
((memq number gnus-newsgroup-recent)
gnus-recent-mark)
((memq number gnus-newsgroup-unseen)
gnus-unseen-mark)
(t gnus-no-mark))
@ -5807,8 +5799,6 @@ If SELECT-ARTICLES, only select those articles from GROUP."
(memq article gnus-newsgroup-forwarded))
((eq type 'seen)
(not (memq article gnus-newsgroup-unseen)))
((eq type 'recent)
(memq article gnus-newsgroup-recent))
(t t))))
(defun gnus-articles-to-read (group &optional read-all)
@ -10985,8 +10975,6 @@ If NO-EXPIRE, auto-expiry will be inhibited."
gnus-forwarded-mark)
((memq article gnus-newsgroup-saved)
gnus-saved-mark)
((memq article gnus-newsgroup-recent)
gnus-recent-mark)
((memq article gnus-newsgroup-unseen)
gnus-unseen-mark)
(t gnus-no-mark))
@ -12594,12 +12582,16 @@ UNREAD is a sorted list."
;; Go through all these summary buffers and offer to save them.
(when buffers
(save-excursion
(map-y-or-n-p
"Update summary buffer %s? "
(lambda (buf)
(switch-to-buffer buf)
(gnus-summary-exit))
buffers)))))
(if (eq gnus-interactive-exit 'quiet)
(dolist (buffer buffers)
(switch-to-buffer buffer)
(gnus-summary-exit))
(map-y-or-n-p
"Update summary buffer %s? "
(lambda (buf)
(switch-to-buffer buf)
(gnus-summary-exit))
buffers))))))
(defun gnus-summary-setup-default-charset ()
"Setup newsgroup default charset."