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, 57 insertions, 4 deletions

diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index 52a8520a252..18e56ed9b3a 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -533,16 +533,69 @@ If BUFFER, insert the article in that group."
 	     header
 	     (gnus-group-real-name group))))
 
+(defun gnus-select-group-with-message-id (group message-id)
+  "Activate and select GROUP with the given MESSAGE-ID selected.
+Returns the article number of the message.
+
+If GROUP is not already selected, the message will be the only one in
+the group's summary.
+"
+  ;; TODO: is there a way to know at this point whether the group will
+  ;; be newly-selected?  If so we could clean up the logic at the end
+  ;;
+  ;; save the new group's display parameter, if any, so we
+  ;; can replace it temporarily with zero.
+  (let ((saved-display
+         (gnus-group-get-parameter group 'display :allow-list)))
+
+    ;; Tell gnus we really don't want any articles 
+    (gnus-group-set-parameter group 'display 0)
+
+    (unwind-protect
+        (gnus-summary-read-group-1
+         group (not :show-all) :no-article (not :kill-buffer)
+         ;; The combination of no-display and this dummy list of
+         ;; articles to select somehow makes it possible to open a
+         ;; group with no articles in it.  Black magic.
+         :no-display '(-1); select-articles
+         )
+      ;; Restore the new group's display parameter
+      (gnus-group-set-parameter group 'display saved-display)))
+
+  ;; The summary buffer was suppressed by :no-display above.
+  ;; Create it now and insert the message
+  (let ((group-is-new (gnus-summary-setup-buffer group)))
+    (condition-case err
+        (let ((article-number 
+               (gnus-summary-insert-subject message-id)))
+          (unless article-number
+            (signal 'error "message-id not in group"))
+          (gnus-summary-select-article nil nil nil article-number)
+          article-number)
+      ;; Clean up the new summary and propagate the error
+      (error (when group-is-new (gnus-summary-exit))
+             (apply 'signal err)))))
+
+(defun gnus-simplify-group-name (group)
+  "Return the simplest representation of the name of GROUP.
+This is the string that Gnus uses to identify the group."
+  (gnus-group-prefixed-name
+   (gnus-group-real-name group)
+   (gnus-group-method group)))
+
 (defun gnus-warp-to-article ()
   "Warps from an article in a virtual group to the article in its
 real group. Does nothing on a real group."
   (interactive)
   (when (gnus-virtual-group-p gnus-newsgroup-name)
     (let ((gnus-command-method
-	   (gnus-find-method-for-group gnus-newsgroup-name)))
-      (when (gnus-check-backend-function
-	     'warp-to-article (car gnus-command-method))
-	(funcall (gnus-get-function gnus-command-method 'warp-to-article))))))
+           (gnus-find-method-for-group gnus-newsgroup-name)))
+      (or
+       (when (gnus-check-backend-function
+              'warp-to-article (car gnus-command-method))
+         (funcall (gnus-get-function gnus-command-method 'warp-to-article)))
+       (and (bound-and-true-p gnus-registry-enabled)
+            (gnus-try-warping-via-registry))))))
 
 (defun gnus-request-head (article group)
   "Request the head of ARTICLE in GROUP."