* nntp.el (nntp-marks-is-evil): Fix typo in docstring.

* mml.el (mml-preview): Use `pop-to-buffer'.

* message.el (message-goto-mail-followup-to): Insert after "To".
(message-carefully-insert-headers): Add comment.

* gnus.el: Remove unused variable `gnus-article-check-size'.

* gnus-sum.el (gnus-summary-make-menu-bar): Add help texts.

* gnus-art.el (gnus-button-alist): Improve
`gnus-button-handle-library' entry.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f666f8..9c72e7a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
+2004-08-21  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * nntp.el (nntp-marks-is-evil): Fix typo in docstring.
+
+       * mml.el (mml-preview): Use `pop-to-buffer'.
+
+       * message.el (message-goto-mail-followup-to): Insert after "To".
+       (message-carefully-insert-headers): Add comment.
+
+       * gnus.el: Remove unused variable `gnus-article-check-size'.
+
+       * gnus-sum.el (gnus-summary-make-menu-bar): Add help texts.
+
+       * gnus-art.el (gnus-button-alist): Improve
+       `gnus-button-handle-library' entry.
+
 2004-08-19  Paul Jarc  <prj@po.cwru.edu>
 
        * nnmaildir.el (nnmaildir--emlink-p, nnmaildir--enoent-p): Use

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 9be84cd..c0481bd 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6106,8 +6106,9 @@ positives are possible."
     ("M-x[ \t\n]+apropos-documentation[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
      0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-documentation 1)
     ;; The following entries may lead to many false positives so don't enable
-    ;; them by default (use a high button level):
-    ("/\\([a-z][-a-z0-9]+\\.el\\)\\>"
+    ;; them by default (use a high button level).
+    ("/\\([a-z][-a-z0-9]+\\.el\\)\\>[^.?]"
+     ;; Exclude [.?] for URLs in gmane.emacs.cvs
      1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1)
     ("`\\([a-z][-a-z0-9]+\\.el\\)'"
      1 (>= gnus-button-emacs-level 8) gnus-button-handle-library 1)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 125aa28..4708498 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -712,7 +712,6 @@ VALUE should have the form `(FOO nil)' or `(FOO t)', where FOO is an atom.
   :match 'gnus-widget-reversible-match
   :value-to-internal 'gnus-widget-reversible-to-internal
   :value-to-external 'gnus-widget-reversible-to-external)
-                        
 
 (defcustom gnus-article-sort-functions '(gnus-article-sort-by-number)
   "*List of functions used for sorting articles in the summary buffer.
@@ -2282,8 +2281,12 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
              ["Pipe through a filter..." gnus-summary-pipe-output t]
              ["Add to SOUP packet" gnus-soup-add-article t]
              ["Print with Muttprint..." gnus-summary-muttprint t]
-             ["Print" gnus-summary-print-article t])
-            ("Backend"
+             ["Print" gnus-summary-print-article
+              ,@(if (featurep 'xemacs) '(t)
+                  '(:help "Generate and print a PostScript image"))])
+            ("Copy, move,... (Backend)"
+             ,@(if (featurep 'xemacs) '(t)
+                 '(:help "Copying, moving, expiring articles..."))
              ["Respool article..." gnus-summary-respool-article t]
              ["Move article..." gnus-summary-move-article
               (gnus-check-backend-function
@@ -2374,7 +2377,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
       `("Post"
        ["Send a message (mail or news)" gnus-summary-post-news
         ,@(if (featurep 'xemacs) '(t)
-            '(:help "Post an article"))]
+            '(:help "Compose a new message (mail or news)"))]
        ["Followup" gnus-summary-followup
         ,@(if (featurep 'xemacs) '(t)
             '(:help "Post followup to this article"))]

diff --git a/lisp/gnus.el b/lisp/gnus.el
index b3247d7..a41c542 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2496,7 +2496,6 @@ such as a mark that says whether an article is stored in the cache
 (defvar gnus-headers-retrieved-by nil)
 (defvar gnus-article-reply nil)
 (defvar gnus-override-method nil)
-(defvar gnus-article-check-size nil)
 (defvar gnus-opened-servers nil)
 
 (defvar gnus-current-kill-article nil)

diff --git a/lisp/message.el b/lisp/message.el
index ade497a..776a203 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2588,7 +2588,7 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
 (defun message-goto-mail-followup-to ()
   "Move point to the Mail-Followup-To header."
   (interactive)
-  (message-position-on-field "Mail-Followup-To" "From"))
+  (message-position-on-field "Mail-Followup-To" "To"))
 
 (defun message-goto-keywords ()
   "Move point to the Keywords header."
@@ -2697,6 +2697,7 @@ or in the synonym headers, defined by `message-header-synonyms'."
   ;; FIXME: Should compare only the address and not the full name.  Comparison
   ;; should be done case-folded (and with `string=' rather than
   ;; `string-match').
+  ;; (mail-strip-quoted-names "Foo Bar <foo@bar>, bla@fasel (Bla Fasel)")
   (dolist (header headers)
     (let* ((header-name (symbol-name (car header)))
            (new-header (cdr header))

diff --git a/lisp/mml.el b/lisp/mml.el
index 96fb5c8..6c73223 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -946,7 +946,7 @@ See Info node `(emacs-mime)Composing'.
                      (if (string-match "^text/.*" type)
                          "inline"
                        "attachment")))
-        (disposition (completing-read 
+        (disposition (completing-read
                       (format "Disposition: (default %s): " default)
                       '(("attachment") ("inline") (""))
                       nil
@@ -1090,9 +1090,9 @@ If RAW, don't highlight the article."
                                           (message-fetch-field "Newsgroups")))
                                        message-posting-charset)))
       (message-options-set-recipient)
-      (switch-to-buffer (generate-new-buffer
-                        (concat (if raw "*Raw MIME preview of "
-                                  "*MIME preview of ") (buffer-name))))
+      (pop-to-buffer (generate-new-buffer
+                     (concat (if raw "*Raw MIME preview of "
+                               "*MIME preview of ") (buffer-name))))
       (when (boundp 'gnus-buffers)
        (push (current-buffer) gnus-buffers))
       (erase-buffer)

diff --git a/lisp/nntp.el b/lisp/nntp.el
index ff7a2db..5a28986 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -192,7 +192,7 @@ server there that you can connect to.  See also
 
 ;; Marks
 (defvoo nntp-marks-is-evil nil
-  "*If non-nil, GNus will never generate and use marks file for nntp groups.
+  "*If non-nil, Gnus will never generate and use marks file for nntp groups.
 See `nnml-marks-is-evil' for more information.")
 
 (defvoo nntp-marks-file-name ".marks")