shr.el (shr-insert): Don't insert double spaces.

auth.texi (Help for users, GnuPG and EasyPG Assistant Configuration): Update docs.
gnus-registry.el, nnregistry.el: Remove nnregistry refer method auto-install and update docs.
gnus.texi (Finding the Parent, The Gnus Registry, Registry Article Refer Method): Update docs for nnregistry.el.
gnus-demon.el, gnus-group.el, gnus-msg.el, gnus-sum.el, gnus-util.el, gnus.el: Rename `gnus-pull' to `gnus-alist-pull'.
gnus.texi (Article Washing): Add mm-shr.
mm-decode.el (mm-text-html-renderer): Add mm-shr in choice list.

13 files changed, 54 insertions, 33 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8859ce8c4ad..744601b8bc9 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,36 @@
+2010-10-08  Julien Danjou  <julien@danjou.info>
+
+        * mm-decode.el (mm-text-html-renderer): Add mm-shr in choice list.
+
+2010-10-08  Teodor Zlatanov  <tzz@lifelogs.com>
+
+        * gnus-util.el (gnus-alist-pull): Rename `gnus-pull'.
+
+        * gnus-sum.el (gnus-mark-article-as-unread)
+        (gnus-summary-mark-article-as-unread, gnus-summary-remove-bookmark)
+        (gnus-summary-set-bookmark): Use it.
+
+        * gnus-msg.el (gnus-setup-message): Use it.
+
+        * gnus-demon.el (gnus-demon-remove-handler): Use it.
+
+        * gnus.el (gnus-group-remove-parameter): Use it.
+
+        * gnus-group.el (gnus-group-make-web-group): Use it.
+
+        * gnus-demon.el (gnus-demon-remove-handler): Use it.
+
+        * nnregistry.el: Update docs to mention manual.
+
+        * gnus-registry.el: Update docs to mention nnregistry.el.
+        (gnus-registry-initialize): Don't install nnregistry refer method
+        automatically.
+        (gnus-registry-install-nnregistry): Remove it.
+
+2010-10-08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+        * shr.el (shr-insert): Don't insert double spaces.
+
 2010-10-08  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * gnus-gravatar.el (gnus-treat-from-gravatar)
diff --git a/lisp/gnus/gnus-demon.el b/lisp/gnus/gnus-demon.el
index c4e439c3bf4..9f992d567d7 100644
--- a/lisp/gnus/gnus-demon.el
+++ b/lisp/gnus/gnus-demon.el
@@ -92,7 +92,7 @@ time Emacs has been idle for IDLE `gnus-demon-timestep's."
 
 (defun gnus-demon-remove-handler (function &optional no-init)
   "Remove the handler FUNCTION from the list of handlers."
-  (gnus-pull function gnus-demon-handlers)
+  (gnus-alist-pull function gnus-demon-handlers)
   (unless no-init
     (gnus-demon-init)))
 
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index b2285569167..b92b608e5db 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -3027,7 +3027,7 @@ If SOLID (the prefix), create a solid group."
                   (nnweb-ephemeral-p t))))
     (if solid
         (progn
-          (gnus-pull 'nnweb-ephemeral-p method)
+          (gnus-alist-pull 'nnweb-ephemeral-p method)
           (gnus-group-make-group group method))
       (gnus-group-read-ephemeral-group
        group method t
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 891718e65b8..a3c5112ee41 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -420,7 +420,7 @@ Thank you for your help in stamping out bugs.
                      ;; There may be an old " *gnus article copy*" buffer.
                      (let (gnus-article-copy)
                        (gnus-configure-posting-styles ,group)))))
-       (gnus-pull ',(intern gnus-draft-meta-information-header)
+       (gnus-alist-pull ',(intern gnus-draft-meta-information-header)
                   message-required-headers)
        (when (and ,group
                   (not (string= ,group "")))
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 45fa9561782..6c2233f9c40 100644
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -36,17 +36,18 @@
 
 ;; Put this in your startup file (~/.gnus.el for instance)
 
-;; (require 'nnregistry) ;; optional, or see below (automatically calls `gnus-registry-install-nnregistry' when `gnus-registry-initialize' is called)
 ;; (setq gnus-registry-max-entries 2500
 ;;       gnus-registry-use-long-group-names t)
 
 ;; (gnus-registry-initialize)
-;; (gnus-registry-install-nnregistry) ;; optional, or see above (loading nnregistry makes it unnecessary)
 
 ;; Then use this in your fancy-split:
 
 ;; (: gnus-registry-split-fancy-with-parent)
 
+;; You should also consider using the nnregistry backend to look up
+;; articles.  See the Gnus manual for more information.
+
 ;; TODO:
 
 ;; - get the correct group on spool actions
@@ -1131,8 +1132,6 @@ Returns the first place where the trail finds a group name."
   (setq gnus-registry-install t)        ; in case it was 'ask or nil
   (gnus-registry-install-hooks)
   (gnus-registry-install-shortcuts)
-  (when (featurep 'nnregistry)
-    (gnus-registry-install-nnregistry))
   (gnus-registry-read))
 
 ;;;###autoload
@@ -1149,21 +1148,6 @@ Returns the first place where the trail finds a group name."
 
   (add-hook 'gnus-summary-prepare-hook 'gnus-registry-register-message-ids))
 
-;;;###autoload
-(defun gnus-registry-install-nnregistry ()
-  "Install the nnregistry refer method in `gnus-refer-article-method'."
-  (interactive)
-  (cond ((eq 'nnregistry gnus-refer-article-method))
-        ((null gnus-refer-article-method)
-         (setq gnus-refer-article-method 'nnregistry))
-        ((consp gnus-refer-article-method)
-         (unless (memq 'nnregistry gnus-refer-article-method)
-           (setq gnus-refer-article-method
-                 (append gnus-refer-article-method '(nnregistry)))))
-        (t
-         (setq gnus-refer-article-method
-               (list gnus-refer-article-method 'nnregistry)))))
-
 (defun gnus-registry-unload-hook ()
   "Uninstall the registry hooks."
   (interactive)
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index c45536c25c0..a0566900757 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -10528,7 +10528,7 @@ ARTICLE can also be a list of articles."
             (not (equal gnus-newsgroup-name (car gnus-article-current))))
     (error "No current article selected"))
   ;; Remove old bookmark, if one exists.
-  (gnus-pull article gnus-newsgroup-bookmarks)
+  (gnus-alist-pull article gnus-newsgroup-bookmarks)
   ;; Set the new bookmark, which is on the form
   ;; (article-number . line-number-in-body).
   (push
@@ -10549,7 +10549,7 @@ ARTICLE can also be a list of articles."
   ;; Remove old bookmark, if one exists.
   (if (not (assq article gnus-newsgroup-bookmarks))
       (gnus-message 6 "No bookmark in current article.")
-    (gnus-pull article gnus-newsgroup-bookmarks)
+    (gnus-alist-pull article gnus-newsgroup-bookmarks)
     (gnus-message 6 "Removed bookmark.")))
 
 ;; Suggested by Daniel Quinlan <quinlan@best.com>.
@@ -10675,7 +10675,7 @@ If NO-EXPIRE, auto-expiry will be inhibited."
                (setq gnus-newsgroup-unreads
                      (gnus-add-to-sorted-list gnus-newsgroup-unreads
                                               article))))
-        (gnus-pull article gnus-newsgroup-reads)
+        (gnus-alist-pull article gnus-newsgroup-reads)
 
         ;; See whether the article is to be put in the cache.
         (and gnus-use-cache
@@ -10849,7 +10849,7 @@ If NO-EXPIRE, auto-expiry will be inhibited."
             (t
              (setq gnus-newsgroup-unreads
                    (gnus-add-to-sorted-list gnus-newsgroup-unreads article))))
-      (gnus-pull article gnus-newsgroup-reads)
+      (gnus-alist-pull article gnus-newsgroup-reads)
       t)))
 
 (defalias 'gnus-summary-mark-as-unread-forward
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 932b0a1f1e7..503ec47e39c 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1366,7 +1366,7 @@ Return the modified alist."
         (when (string-match r word)
           (throw 'found r))))))
 
-(defmacro gnus-pull (key alist &optional assoc-p)
+(defmacro gnus-alist-pull (key alist &optional assoc-p)
   "Modify ALIST to be without KEY."
   (unless (symbolp alist)
     (error "Not a symbol: %s" alist))
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index b62bf051c5d..f6ffdf64ffb 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -3944,7 +3944,7 @@ If ALLOW-LIST, also allow list as a result."
         (when params
           (setq params (delq name params))
           (while (assq name params)
-            (gnus-pull name params))
+            (gnus-alist-pull name params))
           (gnus-info-set-params info params))))))
 
 (defun gnus-group-add-score (group &optional score)
diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 1006c850ae5..07249bf0727 100644
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -115,6 +115,7 @@
   "Render of HTML contents.
 It is one of defined renderer types, or a rendering function.
 The defined renderer types are:
+`mm-shr': use Gnus simple HTML renderer;
 `gnus-article-html' : use Gnus renderer based on w3m;
 `w3m'  : use emacs-w3m;
 `w3m-standalone': use w3m;
@@ -124,7 +125,8 @@ The defined renderer types are:
 `html2text' : use html2text;
 nil    : use external viewer (default web browser)."
   :version "24.1"
-  :type '(choice (const gnus-article-html)
+  :type '(choice (const mm-shr)
+                 (const gnus-article-html)
                  (const w3)
                  (const w3m :tag "emacs-w3m")
                  (const w3m-standalone :tag "standalone w3m" )
diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el
index 46d775a345f..6c9ef1cef87 100644
--- a/lisp/gnus/nndoc.el
+++ b/lisp/gnus/nndoc.el
@@ -1038,7 +1038,7 @@ as the last checked definition, if t or `first', add as the
 first definition, and if any other symbol, add after that
 symbol in the alist."
   ;; First remove any old instances.
-  (gnus-pull (car definition) nndoc-type-alist)
+  (gnus-alist-pull (car definition) nndoc-type-alist)
   ;; Then enter the new definition in the proper place.
   (cond
    ((or (null position) (eq position 'last))
diff --git a/lisp/gnus/nnregistry.el b/lisp/gnus/nnregistry.el
index b2d80503479..03ff5e716aa 100644
--- a/lisp/gnus/nnregistry.el
+++ b/lisp/gnus/nnregistry.el
@@ -25,7 +25,8 @@
 
 ;; This file provides the `nnregistry' Gnus back-end.  It can be used
 ;; in `gnus-refer-article-method' to quickly search for a message by
-;; id, regardless of the back-end that stores it.
+;; id, regardless of the back-end that stores it.  See the Gnus manual
+;; for usage examples and more information.
 
 ;;; Code:
 
diff --git a/lisp/gnus/nnweb.el b/lisp/gnus/nnweb.el
index 1cfa7a4cbc3..ac643f9ed1f 100644
--- a/lisp/gnus/nnweb.el
+++ b/lisp/gnus/nnweb.el
@@ -207,7 +207,7 @@ Valid types include `google', `dejanews', and `gmane'.")
 
 (deffoo nnweb-request-delete-group (group &optional force server)
   (nnweb-possibly-change-server group server)
-  (gnus-pull group nnweb-group-alist t)
+  (gnus-alist-pull group nnweb-group-alist t)
   (nnweb-write-active)
   (gnus-delete-file (nnweb-overview-file group))
   t)
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index ffc27e92ccd..daafa61d372 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -188,7 +188,8 @@ redirects somewhere else."
     (let ((first t)
           column)
       (when (and (string-match "\\`[ \t\n]" text)
-                 (not (bolp)))
+                 (not (bolp))
+                 (not (eq (char-after (1- (point))) ? )))
         (insert " "))
       (dolist (elem (split-string text))
         (when (and (bolp)