* gnus-cache.el (gnus-summary-insert-cached-articles): Reverse the

	order messages are inserted.

	* mml.el (mml-generate-mime-1): rfc2047-encode the heads of
	message/rfc822 parts.

	* gnus-art.el (gnus-article-read-summary-keys): Check for
	numerical values.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f64cd5b..2435c9a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,19 @@
+2000-04-22 14:12:41  David Aspinwall  <aspinwall@TimesTen.com>
+
+       * gnus-art.el (gnus-button-url-regexp): New value to match naked
+       urls. 
+
 2000-04-22 01:23:59  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-cache.el (gnus-summary-insert-cached-articles): Reverse the
+       order messages are inserted.
+
+       * mml.el (mml-generate-mime-1): rfc2047-encode the heads of
+       message/rfc822 parts.
+
+       * gnus-art.el (gnus-article-read-summary-keys): Check for
+       numerical values.
+
        * message.el (message-get-headers): Made into own function.
        (message-reply): Use it.
        (message-get-reply-headers): Renamed.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8ac42d0..0422894 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3616,7 +3616,8 @@ Argument LINES specifies lines to be scrolled down."
             ;; We disable the pick minor mode commands.
             (let (gnus-pick-mode)
               (setq func (lookup-key (current-local-map) keys))))
-          (if (not func)
+          (if (or (not func)
+                 (numberp func))
               (ding)
             (unless (member keys nosave-in-article)
               (set-buffer gnus-article-current-summary))
@@ -4003,7 +4004,7 @@ groups."
 
 ;;; Internal Variables:
 
-(defcustom gnus-button-url-regexp "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)"
+(defcustom gnus-button-url-regexp "\\b\\(\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)\\|[-a-zA-Z0-9_]+\\.[-a-zA-Z0-9_]+\\(\\.[-a-zA-Z0-9_]+[-a-zA-Z0-9_/]+\\)+"
   "Regular expression that matches URLs."
   :group 'gnus-article-buttons
   :type 'regexp)

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 88526b2..4f797c1 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -365,7 +365,7 @@ Returns the list of articles removed."
 (defun gnus-summary-insert-cached-articles ()
   "Insert all the articles cached for this group into the current buffer."
   (interactive)
-  (let ((cached (sort (copy-sequence gnus-newsgroup-cached) '<))
+  (let ((cached (sort (copy-sequence gnus-newsgroup-cached) '>))
        (gnus-verbose (max 6 gnus-verbose)))
     (unless cached
       (gnus-message 3 "No cached articles for this group"))

diff --git a/lisp/mml.el b/lisp/mml.el
index 915bea3..b790792 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -258,6 +258,12 @@ one charsets.")
                        "<#!+/?\\(part\\|multipart\\|external\\)" nil t)
                  (delete-region (+ (match-beginning 0) 2)
                                 (+ (match-beginning 0) 3))))))
+           (when (string= (car (split-string type "/")) "message")
+             ;; message/rfc822 parts have to have their heads encoded.
+             (save-restriction
+               (message-narrow-to-head)
+               (let ((rfc2047-header-encoding-alist nil))
+                 (mail-encode-encoded-word-buffer))))
            (setq charset (mm-encode-body))
            (setq encoding (mm-body-encoding charset 
                                             (cdr (assq 'encoding cont))))