From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Thu, 18 May 2000 01:22:16 +0000 (+0000)
Subject: Misc fixes.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=be1d51bcf34b59a20419a651b0b087743c836a6a;hp=348561af2b5950d72a20c41e12af9f18fd5fd0d3;p=gnus

Misc fixes.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c476d5783..f75001b96 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,18 @@
+2000-05-17 21:16:54  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-group.el (gnus-group-mode-map): Add M-SPACE.
+	* mml.el (mml-mode-map): Comment out mml-narrow-to-part.
+
+2000-05-17 21:13:38 Jim Davidson <jdavidson@acm.org>
+
+	* gnus-sum.el (gnus-summary-save-article-rmail): Use
+	gnus-summary-save-in-rmail.
+	* message.el (message-output): Ditto.
+
+2000-05-17 22:37:25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-art.el (gnus-emphasize-whitespace-regexp): Doc fix.
+	
 2000-05-17 14:03:49  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
 	* rfc2047.el (rfc2047-encode-message-header): Encode if the method
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index eef469af3..9ff3b1009 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -255,7 +255,7 @@ is the face used for highlighting."
 
 (defcustom gnus-emphasize-whitespace-regexp "^[ \t]+\\|[ \t]*\n"
   "A regexp to describe whitespace which should not be emphasized.
-Typical values are \"^[ \t]+\\|[ \t]*\n\" and \"[ \t]+\\|[ \t]*\n\".
+Typical values are \"^[ \\t]+\\\\|[ \\t]*\\n\" and \"[ \\t]+\\\\|[ \\t]*\\n\".
 The former avoids underlining of leading and trailing whitespace,
 and the latter avoids underlining any whitespace at all."
   :group 'gnus-article-emphasis
diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 8ab048924..00179ae9f 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -495,6 +495,7 @@ For example:
     "=" gnus-group-select-group
     "\r" gnus-group-select-group
     "\M-\r" gnus-group-quick-select-group
+    "\M- " gnus-group-visible-select-group
     [(meta control return)] gnus-group-select-group-ephemerally
     "j" gnus-group-jump-to-group
     "n" gnus-group-next-unread-group
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 1ea7bc4b5..4db401524 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9013,7 +9013,7 @@ If N is a negative number, save the N previous articles.
 If N is nil and any articles have been marked with the process mark,
 save those articles instead."
   (interactive "P")
-  (let ((gnus-default-article-saver 'rmail-output-to-rmail-file))
+  (let ((gnus-default-article-saver 'gnus-summary-save-in-rmail))
     (gnus-summary-save-article arg)))
 
 (defun gnus-summary-save-article-file (&optional arg)
diff --git a/lisp/message.el b/lisp/message.el
index 0bef661d6..f4787c9a0 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1005,6 +1005,7 @@ should be sent in several parts. If it is nil, the size is unlimited."
   (autoload 'mh-send-letter "mh-comp")
   (autoload 'gnus-point-at-eol "gnus-util")
   (autoload 'gnus-point-at-bol "gnus-util")
+  (autoload 'gnus-output-to-rmail "gnus-util")
   (autoload 'gnus-output-to-mail "gnus-util")
   (autoload 'mail-abbrev-in-expansion-header-p "mailabbrev")
   (autoload 'nndraft-request-associate-buffer "nndraft")
@@ -2837,7 +2838,7 @@ to find out how to use this."
   "Append this article to Unix/babyl mail file.."
   (if (and (file-readable-p filename)
 	   (mail-file-babyl-p filename))
-      (rmail-output-to-rmail-file filename t)
+      (gnus-output-to-rmail filename t)
     (gnus-output-to-mail filename t)))
 
 (defun message-cleanup-headers ()
diff --git a/lisp/mml.el b/lisp/mml.el
index 49c915d39..2168a3ded 100644
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -638,7 +638,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
     (define-key map "p" 'mml-insert-part)
     (define-key map "v" 'mml-validate)
     (define-key map "P" 'mml-preview)
-    (define-key map "n" 'mml-narrow-to-part)
+    ;;(define-key map "n" 'mml-narrow-to-part)
     (define-key main "\M-m" map)
     main))
 
@@ -652,7 +652,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
    ("Insert"
     ["Multipart" mml-insert-multipart t]
     ["Part" mml-insert-part t])
-   ["Narrow" mml-narrow-to-part t]
+   ;;["Narrow" mml-narrow-to-part t]
    ["Quote" mml-quote-region t]
    ["Validate" mml-validate t]
    ["Preview" mml-preview t]))