2001-07-26 16:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus.el (gnus-parameters): Make it customizable.

2001-07-26 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus-art.el (gnus-mm-display-part): Narrow to point if eobp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12aa2e4..7b2dbea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,12 @@
+2001-07-26 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus.el (gnus-parameters): Make it customizable.
+
 2001-07-26 15:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
-       * message.el(message-set-auto-save-file-name): More
+       * gnus-art.el (gnus-mm-display-part): Narrow to point if eobp.
+
+       * message.el (message-set-auto-save-file-name): More
        poor-system-types.
 
        * mailcap.el (mailcap-parse-mimetypes): poor-system-types.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7baa2e0..b9693be 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -3665,7 +3665,8 @@ If no internal viewer is available, use an external viewer."
                      ;; This will remove the part.
                      (mm-display-part handle)
                    (save-restriction
-                     (narrow-to-region (point) (1+ (point)))
+                     (narrow-to-region (point) 
+                                       (if (eobp) (point) (1+ (point))))
                      (mm-display-part handle)
                      ;; We narrow to the part itself and
                      ;; then call the treatment functions.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 85f90e0..519b4bd 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -849,7 +849,7 @@ be set in `.emacs' instead."
 (require 'gnus-util)
 (require 'nnheader)
 
-(defvar gnus-parameters nil
+(defcustom gnus-parameters nil
   "Alist of group parameters.
 
 For example:
@@ -861,7 +861,10 @@ For example:
                  (display . all))
      (\"mail\\\\.me\" (gnus-use-scoring  t))
      (\"list\\\\..*\" (total-expire . t)
-                 (broken-reply-to . t)))")
+                 (broken-reply-to . t)))"
+  :group 'gnus-group-various
+  :type '(repeat (cons regexp
+                      (repeat sexp))))
 
 (defvar gnus-group-parameters-more nil)