* gnus.el (gnus-parse-headers-hook): New hook.

(gnus-get-newsgroup-headers): Call it.
(gnus-get-newsgroup-headers-xover): Call it.
(gnus-group-mode-map): Moved `gnus-group-fetch-faq' from `M-f' to
`H f'.
(gnus-summary-copy-article): Allow respooling to any backend.
(gnus-summary-set-process-mark): Make sure each article can only
be process marked once.
(gnus-summary-remove-lines-marked-with): Put point on a valid
article after removing lines.
(gnus-summary-sort-by-author): Didn't allow sorting when
pseudo-articles were present.
(gnus-summary-sort-by-subject): Ditto.

1 files changed, 40 insertions, 19 deletions

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 1b6be07ddc9..cd12431adaf 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1194,6 +1194,9 @@ following hook:
 It is meant to be used for highlighting the article in some way.  It
 is not run if `gnus-visual' is nil.")
 
+(defun gnus-parse-headers-hook nil
+  "*A hook called before parsing the headers.")
+
 (defvar gnus-exit-group-hook nil
   "*A hook called when exiting (not quitting) summary mode.")
 
@@ -3075,6 +3078,7 @@ Note: LIST has to be sorted over `<'."
 (defvar gnus-group-group-map nil)
 (defvar gnus-group-mark-map nil)
 (defvar gnus-group-list-map nil)
+(defvar gnus-group-help-map nil)
 (defvar gnus-group-sub-map nil)
 (put 'gnus-group-mode 'mode-class 'special)
 
@@ -3131,7 +3135,6 @@ Note: LIST has to be sorted over `<'."
   (define-key gnus-group-mode-map "Z" 'gnus-group-clear-dribble)
   (define-key gnus-group-mode-map "q" 'gnus-group-exit)
   (define-key gnus-group-mode-map "Q" 'gnus-group-quit)
-  (define-key gnus-group-mode-map "\M-f" 'gnus-group-fetch-faq)
   (define-key gnus-group-mode-map "?" 'gnus-group-describe-briefly)
   (define-key gnus-group-mode-map "\C-c\C-i" 'gnus-info-find-node)
   (define-key gnus-group-mode-map "\M-e" 'gnus-group-edit-group-method)
@@ -3181,6 +3184,10 @@ Note: LIST has to be sorted over `<'."
   (define-key gnus-group-list-map "m" 'gnus-group-list-matching)
   (define-key gnus-group-list-map "M" 'gnus-group-list-all-matching)
 
+  (define-prefix-command 'gnus-group-help-map)
+  (define-key gnus-group-mode-map "H" 'gnus-group-help-map)
+  (define-key gnus-group-help-map "f" 'gnus-group-fetch-faq)
+
   (define-prefix-command 'gnus-group-sub-map)
   (define-key gnus-group-mode-map "S" 'gnus-group-sub-map)
   (define-key gnus-group-sub-map "l" 'gnus-group-set-current-level)
@@ -7175,6 +7182,8 @@ The resulting hash table is returned, or nil if no Xrefs were found."
         headers id dep end ref)
     (save-excursion
       (set-buffer nntp-server-buffer)
+      ;; Allow the user to mangle the headers before parsing them.
+      (run-hooks 'gnus-parse-headers-hook)
       (goto-char (point-min))
       ;; Search to the beginning of the next header. Error messages
       ;; do not begin with 2 or 3.
@@ -7312,6 +7321,8 @@ list of headers that match SEQUENCE (see `nntp-retrieve-headers')."
         number headers header)
     (save-excursion
       (set-buffer nntp-server-buffer)
+      ;; Allow the user to mangle the headers before parsing them.
+      (run-hooks 'gnus-parse-headers-hook)
       (goto-char (point-min))
       (while (and sequence (not (eobp)))
         (setq number (read cur))
@@ -8959,7 +8970,7 @@ functions. (Ie. mail newsgroups at present.)"
                   (gnus-request-article-this-buffer
                    (car articles) gnus-newsgroup-name)
                   (gnus-request-accept-article
-                   (if select-method (quote select-method) to-newsgroup)
+                   (if select-method (list 'quote select-method) to-newsgroup)
                    (not (cdr articles)))))
           (let* ((entry 
                   (or
@@ -9431,7 +9442,9 @@ the actual number of articles marked is returned."
 
 (defun gnus-summary-set-process-mark (article)
   "Set the process mark on ARTICLE and update the summary line."
-  (setq gnus-newsgroup-processable (cons article gnus-newsgroup-processable))
+  (setq gnus-newsgroup-processable 
+        (cons article 
+              (delq article gnus-newsgroup-processable)))
   (let ((buffer-read-only nil))
     (if (gnus-summary-goto-subject article)
         (progn
@@ -9757,7 +9770,10 @@ even ticked and dormant ones."
   ;; Fix by Sudish Joseph <joseph@cis.ohio-state.edu>.
   (gnus-set-global-variables)
   (let ((buffer-read-only nil)
-        (orig-article (gnus-summary-article-number))
+        (orig-article 
+         (progn
+           (gnus-summary-search-forward t)
+           (gnus-summary-article-number)))
         (marks (concat "^[" marks "]")))
     (goto-char (point-min))
     (if gnus-newsgroup-adaptive
@@ -10231,12 +10247,14 @@ Argument REVERSE means reverse order."
    (cons
     (lambda ()
       (let* ((header (gnus-get-header-by-num (gnus-summary-article-number)))
-             (extract (funcall
-                       gnus-extract-address-components
-                       (mail-header-from header))))
-        (concat (or (car extract) (cdr extract))
-                "\r" (int-to-string (mail-header-number header))
-                "\r" (mail-header-subject header))))
+             extract)
+        (if (not (vectorp header))
+            ""
+          (setq extract (funcall gnus-extract-address-components
+                                 (mail-header-from header)))
+          (concat (or (car extract) (cdr extract))
+                  "\r" (int-to-string (mail-header-number header))
+                  "\r" (mail-header-subject header)))))
     'gnus-thread-sort-by-author)
    reverse))
 
@@ -10250,13 +10268,15 @@ Argument REVERSE means reverse order."
    (cons
     (lambda ()
       (let* ((header (gnus-get-header-by-num (gnus-summary-article-number)))
-             (extract (funcall
-                       gnus-extract-address-components
-                       (mail-header-from header))))
-        (concat 
-         (downcase (gnus-simplify-subject (gnus-summary-subject-string) t))
-         "\r" (int-to-string (mail-header-number header))
-         "\r" (or (car extract) (cdr extract)))))
+             extract)
+        (if (not (vectorp header))
+            ""
+          (setq extract (funcall gnus-extract-address-components
+                                 (mail-header-from header)))
+          (concat 
+           (downcase (gnus-simplify-subject (gnus-summary-subject-string) t))
+           "\r" (int-to-string (mail-header-number header))
+           "\r" (or (car extract) (cdr extract))))))
     'gnus-thread-sort-by-subject)
    reverse))
 
@@ -10853,7 +10873,8 @@ The following commands are available:
           (erase-buffer)
           ;; There may be some overlays that we have to kill...
           (insert "i")
-          (let ((overlays (overlays-at (point-min))))
+          (let ((overlays (and (fboundp 'overlays-at)
+                               (overlays-at (point-min)))))
             (while overlays
               (delete-overlay (car overlays))
               (setq overlays (cdr overlays))))
@@ -12056,7 +12077,7 @@ If LEVEL is non-nil, the news will be set up at level LEVEL."
 
     ;; Find new newsgroups and treat them.
     (if (and init gnus-check-new-newsgroups gnus-read-active-file (not level)
-             (gnus-server-opened gnus-select-method))
+             (gnus-check-server gnus-select-method))
         (gnus-find-new-newsgroups))
 
     ;; Find the number of unread articles in each non-dead group.