Merge changes made in Gnus master ever since feature freeze

:::::::::::::::::
::: doc/misc/ :::
:::::::::::::::::
2012-06-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.texi (POP before SMTP): POP-before-SMTP works with all sending
  methods, so don't mention smtpmail here.
	
2012-05-04 Wolfgang Jenkner <wjenkner@inode.at>
* gnus.texi (Picons): Document gnus-picon-properties.
	
2012-06-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.texi: Remove mention of compilation, as that's no longer
 supported.
	
2012-03-14 Christopher Schmidt <christopher@ch.ristopher.com>
* gnus.texi (Archived Messages): Mention
  gnus-gcc-pre-body-encode-hook and gnus-gcc-post-body-encode-hook.
	
2012-02-16 Lars Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Various Summary Stuff):
  Remove mention of `gnus-propagate-marks'.
	
2012-02-15 Lars Ingebrigtsen <larsi@gnus.org>
* gnus.texi: Remove mentions of nnml/nnfolder/nntp backend marks,
  which no longer exist.
	
2012-02-08 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus.texi (Archived Messages):
  Document gnus-gcc-self-resent-messages.
	
2012-02-06 Lars Ingebrigtsen <larsi@gnus.org>
* message.texi (Mail Variables):
  Mention the optional user parameter for X-Message-SMTP-Method.
	
2012-02-02 Lars Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Posting Styles): Mention X-Message-SMTP-Method.
* message.texi (Mail Variables): Document X-Message-SMTP-Method.
	
2012-01-31 Lars Ingebrigtsen <larsi@gnus.org>
* gnus.texi (Key Index): Change encoding to utf-8.
	
::::::::::::::::::
::: lisp/gnus/ :::
::::::::::::::::::
2012-06-26 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-decode.el: Add coding cookie for a soft hyphen that mm-shr uses.

2012-06-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (gnus-article-read-summary-keys): Protect against the key
  being bound to a lambda form.
	
2012-05-04 Wolfgang Jenkner <wjenkner@inode.at>
* gnus-picon.el (gnus-picon-properties): New defcustom.
  (gnus-picon-create-glyph): Use it.
	
2012-06-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el: Add a iso-8859-1 cookie to make stuff work under other
  locales.
* mm-decode.el (mm-display-part): Dissect archives when hitting `RET'
  on a handle.
* gnus-sum.el (gnus-summary-limit-to-author): Use the current From
  address as the default.
* nnfolder.el (nnfolder-save-buffer): Delete old versions silently.
  It makes no sense to query the user about internal files.
* gnus-spec.el: Remove all the byte-compilation stuff, since
  benchmarking shows that it doesn't help when entering large summary
  buffers.
* gnus-util.el (gnus-byte-code): Remove.
* gnus-spec.el (gnus-update-format-specifications): Remove outdated
  grouplens stuff.
	
2012-06-07 Stephen Eglen <S.J.Eglen@damtp.cam.ac.uk>
* message.el (message-buffers): Return all buffers derived from Message
  to make `gnus-dired-attach' work with mu4e.
	
2012-05-28 Daiki Ueno <ueno@unixuser.org>
* mm-decode.el (mm-inhibit-auto-detect-attachment): New variable.
  (mm-dissect-singlepart): Don't guess the MIME type of
  application/octet-stream parts if mm-inhibit-auto-detect-attachment is
  set.
  (mm-dissect-multipart): Bind mm-inhibit-auto-detect-attachment if the
  toplevel MIME type is multipart/encrypted.
	
2011-12-02 Wolfgang Jenkner <wjenkner@inode.at>
* gnus-agent.el (gnus-agent-save-active): Deal with the "groups" format.
  In particular, add an optional argument and a docstring.
* gnus-start.el (gnus-groups-to-gnus-format): Use it.
* nntp.el (nntp-finish-retrieve-group-infos): Make `nntp-server-buffer'
  current before calling `gnus-groups-to-gnus-format'.
  Note that this was already the case for `gnus-active-to-gnus-format'.
	
2012-04-25 Katsumi Yamaoka <yamaoka@jpl.org>
* pop3.el (pop3-wait-for-messages): Fix retrieved data size calculation.
	
2012-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mm-decode.el (mm-dissect-buffer): Doc fix.
* gnus-sum.el (gnus-handle-ephemeral-exit):
  Avoid creating the group buffer if it doesn't exist.
* gnus-group.el (gnus-group-read-ephemeral-group): If no quit-config
  is given, mark the group as ephemeral with the current window conf.
* gnus-sum.el (gnus-set-global-variables): Don't assume that the group
  buffer exists, which it doesn't if we haven't started Gnus.
  (gnus-summary-exit): Allow quitting when we don't have a group buffer.
	
2012-04-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mml.el (mml-generate-mime):
  Allow specifying what the top-level part type is.
* gnus-sum.el (gnus-auto-center-summary):
  `scroll-margin' isn't defined on XEmacs.
	
2012-04-10 Philipp Haselwarter <philipp.haselwarter@gmx.de> (tiny change)
* gnus-sum.el (gnus-auto-center-summary):
  Set default to respect `scroll-margin'.
	
2012-04-10 Elias Oltmanns <eo@nebensachen.de> (tiny change)
* gnus-cite.el (gnus-dissect-cited-text): A single line without
  citation prefix within a block of cited text should be considered
  part of that block *only* if it is a blank line.
	
2012-04-02 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-find-fill-point): Remove unused code; don't break a line
  before kinsoku-bol characters nor within kinsoku-eol characters.
	
2012-03-27 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sync.el (gnus-topic-alist, gnus-group-topic)
  (gnus-topic-create-topic, gnus-topic-enter-dribble):
  Silence compiler.
  (gnus-sync-read): Use mapc instead of mapcar.
* mm-archive.el: Require mm-decode for some macros.
  (gnus-recursive-directory-files, mailcap-extension-to-mime):
  Silence the byte compiler.
  (mm-archive-decoders): New function that returns the value of
  the mm-archive-decoders variable.
* mm-decode.el:
  Don't require mm-archive; autoload mm-archive functions instead.
  (mm-dissect-singlepart): Use the function mm-archive-decoders.
* nnmail.el (mail-send-and-exit): Silence the byte compiler.
	
2012-03-12 Peter Munster <pmrb@free.fr>
* gnus-demon.el (gnus-demon-timers): Now a plist (function -> timer).
  (gnus-demon-cancel): Ditto.
  (gnus-demon-run-callback): When function cannot be called due to low
  idleness, call it when idleness reaches the expected value, instead
  of waiting another timer period.
  (gnus-demon-init): Add `time' to arguments of call-back.
	
2012-03-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.el: Register gnus-registry functions.
* gnus-registry.el (gnus-try-warping-via-registry):
  Moved here and indent.
* gnus-int.el (gnus-warp-to-article):
  Check whether the registry is enabled before warping.
	
2012-03-22 Dave Abrahams <dave@boostpro.com>
* gnus-sum.el (gnus-summary-insert-subject): Record information
  in the registry about each article retrieved.
* gnus-int.el (gnus-select-group-with-message-id): New function.
  (gnus-try-warping-via-registry): Ditto.
  (gnus-warp-to-article): Fall back on the registry.
	
2012-03-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nnimap.el (nnimap-fetch-partial-articles): Minor doc string fixup.
	
2012-03-22 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-summary-resend-message-insert-gcc): Assume that
  gnus-gcc-self-resent-messages may be a group parameter.
  (gnus-summary-resend-message):
  Don't encode encoded words in header when Gcc'ing resent message.
	
2012-03-19 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-insert): Treat non-breaking space just like normal
  space.  This seems to produce more pleasing results.
  (shr-insert):
  Only insert a blank line if we're starting from an image.
  (shr-tag-br):
  Allow <br> to end lines or to make a single blank line.
  (shr-ensure-paragraph): Consider lines with white space to be blank.
	
2012-03-14 Christopher Schmidt <christopher@ch.ristopher.com>
* gnus-msg.el (gnus-inews-do-gcc): Add gnus-gcc-pre-body-encode-hook
  and gnus-gcc-post-body-encode-hook.
	
2012-02-16 Lars Ingebrigtsen <larsi@gnus.org>
* mm-decode.el (mm-dissect-singlepart):
  Guess what the type of application/octet-stream parts really is.
* gnus-sum.el (gnus-propagate-marks): Remove.
	
2012-02-15 Lars Ingebrigtsen <larsi@gnus.org>
* nntp.el (nntp-coding-system-for-read): Remove.
  (nntp-coding-system-for-write): Ditto.
  (nntp-open-connection): Just use `binary' directly.

2012-02-14 Teodor Zlatanov <tzz@lifelogs.com>
* registry.el (registry-usage-test, registry-persistence-test):
  Move to tests/gnustest-registry.el.
  (registry-make-testable-db, registry-match-test)
  (registry-instantiation-test): Move to tests/gnustest-registry.el.
* gnus-registry.el (gnus-registry-misc-test)
  (gnus-registry-usage-test): Move to tests/gnustest-registry.el.
* tests/gnustest-registry.el:
  New file with the registry and gnus-registry ERT tests.
	
2012-02-13 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-summary-resend-message):
  Make gnus-summary-resend-message-insert-gcc be last item in
  message-header-setup-hook.
	
2012-02-13 Lars Ingebrigtsen <larsi@gnus.org>
* nnfolder.el (nnfolder-marks-directory, nnfolder-marks-is-evil)
  (nnfolder-marks, nnfolder-marks-file-suffix)
  (nnfolder-marks-modtime): Remove.
  (nnfolder-open-server): Don't use marks.
  (nnfolder-request-delete-group): Ditto.
  (nnfolder-request-rename-group): Ditto.
  (nnfolder-request-set-mark, nnfolder-request-marks)
  (nnfolder-group-marks-pathname, nnfolder-marks-changed-p)
  (nnfolder-save-marks, nnfolder-open-marks): Remove.
* nnml.el (nnml-marks-is-evil, nnml-marks-file-name, nnml-marks)
  (nnml-marks-modtime): Remove.
  (nnml-request-delete-group): Don't use marks.
  (nnml-request-rename-group): Ditto.
  (nnml-request-set-mark, nnml-request-marks, nnml-marks-changed-p)
  (nnml-save-marks, nnml-open-marks): Remove.
* nntp.el (nntp-marks-is-evil, nntp-marks-file-name, nntp-marks)
  (nntp-marks-modtime, nntp-marks-directory, nntp-request-set-mark)
  (nntp-request-marks, nntp-marks-directory, nntp-marks-changed-p)
  (nntp-save-marks, nntp-open-marks, nntp-possibly-create-directory)
  (nntp-server-to-method-cache): Remove.
* shr.el (shr-rescale-image): Fix wrong merge.
	
2012-02-15 Lars Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-remove-trailing-whitespace):
  Really delete the padding on too-wide lines.
	
2012-02-09 Lars Ingebrigtsen <larsi@gnus.org>
* mm-archive.el (mm-archive-dissect-and-inline): New function.
  (mm-archive-dissect-and-inline): Fix up the undisplayer.
* mm-decode.el (mm-display-external): Output the text from
  the command in the buffer after the command finished.
  This makes text-based commands behave better.
	
2012-02-07 Lars Ingebrigtsen <larsi@gnus.org>
* message.el (smtpmail-smtp-user): Silence compiler warning.
	
2012-02-06 Lars Ingebrigtsen <larsi@gnus.org>
* message.el (message-multi-smtp-send-mail):
  Also allow specifying the SMTP user name.
	
2012-02-06 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-sum.el (gnus-summary-article-map): Fix typo.
	
2012-02-02 Lars Ingebrigtsen <larsi@gnus.org>
* message.el (message-multi-smtp-send-mail): New function.
  (message-multi-smtp-send-mail): Respect the X-Message-SMTP-Method
  header to implement multi-SMTP functionality.
* gnus-agent.el (gnus-agent-send-mail-function): Removed.
  (gnus-agentize): Don't set it.
  (gnus-agent-send-mail): Don't use it.
* gnus-sum.el (gnus-summary-widget-backward):
  New function and keystroke.
* shr.el (shr-put-image): Remove underlines from sliced images.
  (shr-zoom-image): Compute the region to be replaced more correctly.
	
2012-02-02 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-msg.el (gnus-gcc-self-resent-messages): New user option.
  (gnus-summary-resend-message-insert-gcc): New function.
  (gnus-summary-resend-message): Modify message-header-setup-hook and
  message-sent-hook to make it work for Gcc.
  (gnus-inews-do-gcc): Update the number of unread articles of groups
  that messages are Gcc'd to.
* message.el (message-resend): Run message-sent-hook to do Gcc.
	
2012-02-01 Lars Ingebrigtsen <larsi@gnus.org>
* gnus-registry.el (gnus-registry-fixup-registry):
  Move the message to a higher level to silence compilation.
* gnus-art.el (gnus-shr-put-image): Take and pass on a `flags'
  parameter to allow controlling the scaling.
* shr.el (shr-zoom-image): New command and keystroke.
  (shr-put-image): Take a `size' flag to say how to scale the image.
* mm-archive.el (mm-dissect-archive): Use it to get all file names.
  Use recursive deletion.
  (mm-dissect-archive): Add support for zip files.
* gnus-util.el (gnus-recursive-directory-files): New function.
* mm-archive.el (mm-archive-list-files): Inline text and image parts.
  (mm-archive-decoders): Add tgz support.
* mm-decode.el (mm-shr): Make sure that the HTML ends with a newline.
  Otherwise inserting text into the Gnus buffer can look odd.
* gnus-art.el (gnus-mime-inline-part): Slight clean-up.
* mm-archive.el (mm-archive-decoders): Add support for tar.
* gnus.el (gnus-logo-color-alist): Change the colours for Ma Gnus.
* nnmail.el (nnmail-extra-headers): Add Cc to the default.
	
2012-01-31 Lars Ingebrigtsen <larsi@gnus.org>
* mm-decode.el (mm-dissect-singlepart): Check that the decoder exists.
* mm-archive.el: New file.
* mm-decode.el (mm-dissect-singlepart):
  Use it to decode ms-tnef files.
* mm-util.el (mm-find-buffer-file-coding-system): Comment fix.
* message.el (message-goto-*): Make all the `message-goto-*' commands
  push the mark before moving point.  This makes it easier to go back
  to where you came from after editing whatever you jumped to.
	
2012-01-07 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-sync.el (gnus-sync-newsrc-groups): Quote normally.
  (gnus-sync-lesync-pre-save-group-entry): Remove invalid invlists.
  (gnus-sync-lesync-normalize-group-entry): Ignore a few more keys.
	
2011-11-09 Teodor Zlatanov <tzz@lifelogs.com>
* spam.el: Move BBDB autoloads.
  (spam-exists-in-BBDB-p):
  New function to do the BBDB search directly in BBDB 2 and 3.
  (spam-check-BBDB): Use it.
  (spam-enter-ham-BBDB): Use it.
	
2011-10-31 Peter Munster <pmrb@free.fr> (tiny change)
* gnus-group.el (gnus-group-get-new-news):
  New parameter `one-level' for scanning exactly one level.
* gnus-start.el (gnus-get-unread-articles): Ditto.
	
2011-11-03 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-sync.el: More commentary about setup.
	
2011-11-02 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-sync.el: More commentary about `gnus-sync-read' issues.
	
2011-10-31 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-sync.el: Improve docs about CouchDB admins.
	
2011-10-29 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-sync.el (gnus-sync-lesync-setup): Fix salt when user setup is
  not needed.  Provide xmlplistread list function to produce XML plist
  output for non-Gnus LeSync clients.
	
2011-10-27 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-sync.el: Add LeSync synchronization backend and logic to read
  and save against it.  Group subscriptions, read marks, other marks,
  subscription levels, topic names, and topic offsets (the group's
  position within the topic) are saved.  This is an experimental
  backend and may change significantly.  Load json.el from
  the gnus-fallback-lib if it's not available otherwise.
  (gnus-sync-save): Don't use `apply-partially' because of XEmacs.

2011-04-20 David Engster <dengste@eml.cc>
* tests/gnustest-nntp.el: New file for simple NNTP testing.

1 files changed, 46 insertions, 31 deletions

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 7f095e15496..10b314a1435 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -451,7 +451,8 @@ current article is unread."
   :group 'gnus-summary-maneuvering
   :type 'boolean)
 
-(defcustom gnus-auto-center-summary 2
+(defcustom gnus-auto-center-summary 
+  (max (or (bound-and-true-p scroll-margin) 0) 2)
   "*If non-nil, always center the current summary buffer.
 In particular, if `vertical' do only vertical recentering.  If non-nil
 and non-`vertical', do both horizontal and vertical recentering."
@@ -1243,13 +1244,6 @@ For example: ((1 . cn-gb-2312) (2 . big5))."
   :type 'boolean
   :group 'gnus-summary-marks)
 
-(defcustom gnus-propagate-marks nil
-  "If non-nil, Gnus will store and retrieve marks from the backends.
-This means that marks will be stored both in .newsrc.eld and in
-the backend, and will slow operation down somewhat."
-  :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)
@@ -1918,6 +1912,7 @@ increase the score of each group you read."
   "x" gnus-summary-limit-to-unread
   "s" gnus-summary-isearch-article
   [tab] gnus-summary-widget-forward
+  [backtab] gnus-summary-widget-backward
   "t" gnus-summary-toggle-header
   "g" gnus-summary-show-article
   "l" gnus-summary-goto-last-article
@@ -2082,6 +2077,7 @@ increase the score of each group you read."
   "g" gnus-summary-show-article
   "s" gnus-summary-isearch-article
   [tab] gnus-summary-widget-forward
+  [backtab] gnus-summary-widget-backward
   "P" gnus-summary-print-article
   "S" gnus-sticky-article
   "M" gnus-mailing-list-insinuate
@@ -3558,7 +3554,7 @@ buffer that was in action when the last article was fetched."
 	    (push (eval (car locals)) vlist))
 	  (setq locals (cdr locals)))
 	(setq vlist (nreverse vlist)))
-      (with-current-buffer gnus-group-buffer
+      (with-temp-buffer
 	(setq gnus-newsgroup-name name
 	      gnus-newsgroup-marked marked
 	      gnus-newsgroup-spam-marked spam
@@ -6074,10 +6070,6 @@ If SELECT-ARTICLES, only select those articles from GROUP."
 
 	(when (and (gnus-check-backend-function
 		    'request-set-mark gnus-newsgroup-name)
-		   (or gnus-propagate-marks
-		       (gnus-method-option-p
-			(gnus-find-method-for-group gnus-newsgroup-name)
-			'server-marks))
 		   (not (gnus-article-unpropagatable-p (cdr type))))
 	  (let* ((old (cdr (assq (cdr type) (gnus-info-marks info))))
 		 ;; Don't do anything about marks for articles we
@@ -6289,10 +6281,9 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 	 (info (nth 2 entry))
 	 (active (gnus-active group))
 	 (set-marks
-	  (or gnus-propagate-marks
-	      (gnus-method-option-p
-	       (gnus-find-method-for-group group)
-	       'server-marks)))
+	  (gnus-method-option-p
+	   (gnus-find-method-for-group group)
+	   'server-marks))
 	 range)
     (if (not entry)
 	;; Group that Gnus doesn't know exists, but still allow the
@@ -6629,9 +6620,9 @@ too, instead of trying to fetch new headers."
       ;; article if ID is a number -- so that the next `P' or `N'
       ;; command will fetch the previous (or next) article even
       ;; if the one we tried to fetch this time has been canceled.
-      (when (> number gnus-newsgroup-end)
+      (unless (and gnus-newsgroup-end (< number gnus-newsgroup-end))
 	(setq gnus-newsgroup-end number))
-      (when (< number gnus-newsgroup-begin)
+      (unless (and gnus-newsgroup-begin (> number gnus-newsgroup-begin))
 	(setq gnus-newsgroup-begin number))
       (setq gnus-newsgroup-unselected
 	    (delq number gnus-newsgroup-unselected)))
@@ -7257,7 +7248,8 @@ If FORCE (the prefix), also save the .newsrc file(s)."
       (gnus-summary-update-info))
     (gnus-close-group group)
     ;; Make sure where we were, and go to next newsgroup.
-    (set-buffer gnus-group-buffer)
+    (when (buffer-live-p (get-buffer gnus-group-buffer))
+      (set-buffer gnus-group-buffer))
     (unless quit-config
       (gnus-group-jump-to-group group))
     (gnus-run-hooks 'gnus-summary-exit-hook)
@@ -7282,7 +7274,8 @@ If FORCE (the prefix), also save the .newsrc file(s)."
 	  (gnus-kill-buffer buf)))
 
       (setq gnus-current-select-method gnus-select-method)
-      (set-buffer gnus-group-buffer)
+      (when (gnus-buffer-live-p gnus-group-buffer)
+	(set-buffer gnus-group-buffer))
       (if quit-config
 	  (gnus-handle-ephemeral-exit quit-config)
 	(goto-char group-point)
@@ -7361,7 +7354,8 @@ If FORCE (the prefix), also save the .newsrc file(s)."
   "Handle movement when leaving an ephemeral group.
 The state which existed when entering the ephemeral is reset."
   (if (not (buffer-live-p (car quit-config)))
-      (gnus-configure-windows 'group 'force)
+      (when (gnus-buffer-live-p gnus-group-buffer)
+	(gnus-configure-windows 'group 'force))
     (set-buffer (car quit-config))
     (unless (eq (cdr quit-config) 'group)
       (setq gnus-current-select-method
@@ -8238,7 +8232,12 @@ If NOT-MATCHING, excluding articles that have authors that match a regexp."
   (interactive
    (list (read-string (if current-prefix-arg
 			  "Exclude author (regexp): "
-			"Limit to author (regexp): "))
+			"Limit to author (regexp): ")
+		      (let ((header (gnus-summary-article-header)))
+			(if (not header)
+			    ""
+			  (car (mail-header-parse-address
+				(mail-header-from header))))))
 	 current-prefix-arg))
   (gnus-summary-limit-to-subject from "from" not-matching))
 
@@ -9270,6 +9269,17 @@ With optional ARG, move across that many fields."
   (select-window (gnus-get-buffer-window gnus-article-buffer))
   (widget-forward arg))
 
+(defun gnus-summary-widget-backward (arg)
+  "Move point to the previous field or button in the article.
+With optional ARG, move across that many fields."
+  (interactive "p")
+  (gnus-summary-select-article)
+  (gnus-configure-windows 'article)
+  (select-window (gnus-get-buffer-window gnus-article-buffer))
+  (unless (widget-at (point))
+    (goto-char (point-max)))
+  (widget-backward arg))
+
 (defun gnus-summary-isearch-article (&optional regexp-p)
   "Do incremental search forward on the current article.
 If REGEXP-P (the prefix) is non-nil, do regexp isearch."
@@ -10080,10 +10090,9 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
 		   to-group 'expire (list to-article) info))
 
 		(when (and to-marks
-			   (or gnus-propagate-marks
-			       (gnus-method-option-p
-				(gnus-find-method-for-group to-group)
-				'server-marks)))
+			   (gnus-method-option-p
+			    (gnus-find-method-for-group to-group)
+			    'server-marks))
 		  (gnus-request-set-mark
 		   to-group (list (list (list to-article) 'add to-marks)))))
 
@@ -12418,6 +12427,13 @@ If REVERSE, save parts that do not match TYPE."
 		(not (setq header (car (gnus-get-newsgroup-headers nil t)))))
 	    ()				; Malformed head.
 	  (unless (gnus-summary-article-sparse-p (mail-header-number header))
+            (when (and (bound-and-true-p gnus-registry-enabled)
+                       (not (gnus-ephemeral-group-p (car where))))
+              (gnus-registry-handle-action
+               (mail-header-id header) nil
+               (gnus-group-prefixed-name (car where) gnus-override-method)
+               (mail-header-subject header)
+               (mail-header-from header)))
 	    (when (and (stringp id)
 		       (or
 			(not (string= (gnus-group-real-name group)
@@ -12565,10 +12581,9 @@ UNREAD is a sorted list."
 	(save-excursion
 	  (let (setmarkundo)
 	    ;; Propagate the read marks to the backend.
-	    (when (and (or gnus-propagate-marks
-			   (gnus-method-option-p
-			    (gnus-find-method-for-group group)
-			    'server-marks))
+	    (when (and (gnus-method-option-p
+			(gnus-find-method-for-group group)
+			'server-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))))