X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus.el;h=d84b28ea9af41601fcb3065c8a7c819ec1b34ac7;hp=91ba20298b047f44f5c081835867fd21da29aa3b;hb=754a007c9c67f3506008dab6e7e8943eb51848f2;hpb=c8279f0b19fb4eba0540f1f0f2cbf5be350d2829

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 91ba20298..d84b28ea9 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -246,7 +246,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "0.32"
+(defconst gnus-version-number "0.33"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Quassia Gnus v%s" gnus-version-number)
@@ -1127,6 +1127,7 @@ slower."
     ("nnfolder" mail respool address)
     ("nngateway" none address prompt-address physical-address)
     ("nnweb" none)
+    ("nnlistserv" none)
     ("nnagent" post-mail))
   "*An alist of valid select methods.
 The first element of each list lists should be a string with the name
@@ -1633,7 +1634,9 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
       gnus-group-list-groups gnus-group-first-unread-group
       gnus-group-set-mode-line gnus-group-set-info gnus-group-save-newsrc
       gnus-group-setup-buffer gnus-group-get-new-news
-      gnus-group-make-help-group gnus-group-update-group)
+      gnus-group-make-help-group gnus-group-update-group
+      gnus-clear-inboxes-moved gnus-group-iterate
+      gnus-group-group-name)
      ("gnus-bcklg" gnus-backlog-request-article gnus-backlog-enter-article
       gnus-backlog-remove-article)
      ("gnus-art" gnus-article-read-summary-keys gnus-article-save
@@ -2075,11 +2078,13 @@ g -- Group name."
 	((= c ?g)
 	 (gnus-group-group-name))
 	((= c ?A)
-	 (gnus-summary-article-number))
+	 (gnus-summary-skip-intangible)
+	 (or (get-text-property (point) 'gnus-number)
+	     (gnus-summary-last-subject)))
 	((= c ?H)
-	 (gnus-summary-article-header))
+	 (gnus-data-header (gnus-data-find (gnus-summary-article-number))))
 	(t
-	 (error "Not implemented spec")))
+	 (error "Non-implemented spec")))
        out)
       (cond
        ((= c ?r)