procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from gnus--devo--0

Browse source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1137
This commit is contained in:
Miles Bader 2008-05-02 12:12:44 +00:00
parent 38ac8b9192
commit 3a23a51959
4 changed files with 32 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/misc/ChangeLog
View file

@ -1,3 +1,8 @@
2008-05-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Various Summary Stuff): Add gnus-propagate-marks.
(Various Summary Stuff): Fix typo in last xref.
2008-05-02 Juanma Barranquero <lekktu@gmail.com>
* org.texi (Moving subtrees): Fix typo.

7
doc/misc/gnus.texi
View file

@ -10763,6 +10763,13 @@ buffers. For example:
@end lisp
Also @pxref{Group Parameters}.
@vindex gnus-propagate-marks
@item gnus-propagate-marks
If non-@code{nil}, propagate marks to the backends for possible
storing. @xref{NNTP marks}, and friends, for a more fine-grained
sieve.
@end table

8
lisp/gnus/ChangeLog
View file

@ -1,3 +1,11 @@
2008-05-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-summary-save-parts): Inhibit even more treatment
hooks.
(gnus-update-read-articles): Speed up non-marks-using users.
(gnus-use-marks): Define gnus-use-marks.
(gnus-propagate-marks): Rename variable to something more sensible.
2008-05-02 Juanma Barranquero <lekktu@gmail.com>
* gmm-utils.el (gmm, gmm-verbose, gmm-lazy, gmm-customize-mode)

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

@ -1208,6 +1208,12 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
:type 'boolean
:group 'gnus-summary-marks)
(defcustom gnus-propagate-marks t
"If non-nil, do not propagate marks to the backends."
:version "21.1"
:type 'boolean
:group 'gnus-summary-marks)
(defcustom gnus-alter-articles-to-read-function nil
"Function to be called to alter the list of articles to be selected."
:type '(choice (const nil) function)
@ -11818,6 +11824,10 @@ If REVERSE, save parts that do not match TYPE."
current-prefix-arg))
(gnus-summary-iterate n
(let ((gnus-display-mime-function nil)
gnus-article-prepare-hook
gnus-article-decode-hook
gnus-display-mime-function
gnus-break-pages
(gnus-inhibit-treatment t))
(gnus-summary-select-article))
(with-current-buffer gnus-article-buffer
@ -12151,7 +12161,8 @@ UNREAD is a sorted list."
(save-excursion
(let (setmarkundo)
;; Propagate the read marks to the backend.
(when (gnus-check-backend-function 'request-set-mark group)
(when (and gnus-propagate-marks
(gnus-check-backend-function 'request-set-mark group))
(let ((del (gnus-remove-from-range (gnus-info-read info) read))
(add (gnus-remove-from-range read (gnus-info-read info))))
(when (or add del)