* 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.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 1b6be07ddc94d536aad3918f024d8f105de7f62f..cd12431adaf4bf75b4368fb0ea5d20722e8c61cc 100644 (file)
--- 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.