* mml1991.el (mml1991-function-alist): Doc fix.

* mml.el (mml-preview): Bind gnus-newsrc-hashtb temporarily if it
doesn't exist (for previewing messages without having Gnus
started).

* mm-util.el (mm-coding-system-priorities): Defcustom.

* mm-encode.el (mm-content-transfer-encoding-defaults): Defcustom.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 78b8935..c44c5f7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2002-05-04  Simon Josefsson  <jas@extundo.com>
+
+       * mml1991.el (mml1991-function-alist): Doc fix.
+
+       * mml.el (mml-preview): Bind gnus-newsrc-hashtb temporarily if it
+       doesn't exist (for previewing messages without having Gnus
+       started).
+
+       * mm-util.el (mm-coding-system-priorities): Defcustom.
+
+       * mm-encode.el (mm-content-transfer-encoding-defaults): Defcustom.
+
 2002-05-01  Josh Huber  <huber@alum.wpi.edu>
 
        * gnus-msg.el (gnus-message-replysignencrypted): enabled by

diff --git a/lisp/mm-encode.el b/lisp/mm-encode.el
index 1658299..d75e3f6 100644 (file)
--- a/lisp/mm-encode.el
+++ b/lisp/mm-encode.el
@@ -30,7 +30,7 @@
 (eval-and-compile
   (autoload 'mm-body-7-or-8 "mm-bodies"))
 
-(defvar mm-content-transfer-encoding-defaults
+(defcustom mm-content-transfer-encoding-defaults
   '(("text/x-patch" 8bit)
     ("text/.*" qp-or-base64)
     ("message/rfc822" 8bit)
@@ -40,7 +40,15 @@
     (".*" base64))
   "Alist of regexps that match MIME types and their encodings.
 If the encoding is `qp-or-base64', then either quoted-printable
-or base64 will be used, depending on what is more efficient.")
+or base64 will be used, depending on what is more efficient."
+  :type '(repeat (list (regexp :tag "MIME type")
+                      (choice :tag "encoding"
+                              (const 7bit)
+                              (const 8bit)
+                              (const qp-or-base64)
+                              (const quoted-printable)
+                              (const base64))))
+  :group 'mime)
 
 (defvar mm-use-ultra-safe-encoding nil
   "If non-nil, use encodings aimed at Procrustean bed survival.

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 18bf4d7..fd6b536 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -268,7 +268,7 @@ Valid elements include:
        mm-iso-8859-15-compatible))
   "A table of the difference character between ISO-8859-X and ISO-8859-15.")
 
-(defvar mm-coding-system-priorities nil
+(defcustom mm-coding-system-priorities nil
   "Preferred coding systems for encoding outgoing mails.
 
 More than one suitable coding systems may be found for some texts.  By
@@ -278,8 +278,10 @@ it overrides the default priority.  For example, Japanese users may
 prefer iso-2022-jp to japanese-shift-jis:
 
 \(setq mm-coding-system-priorities
-  '(iso-2022-jp iso-2022-jp-2 japanese-shift-jis utf-8))
-")
+  '(iso-2022-jp iso-2022-jp-2 japanese-shift-jis iso-latin-1 utf-8))
+"
+  :type '(repeat (coding-system :tag "Coding system"))
+  :group 'mime)
 
 (defvar mm-use-find-coding-systems-region
   (fboundp 'find-coding-systems-region)

diff --git a/lisp/mml.el b/lisp/mml.el
index d339ba5..cb88dd2 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -1022,7 +1022,9 @@ If RAW, don't highlight the article."
        (let ((gnus-newsgroup-charset (car message-posting-charset))
              gnus-article-prepare-hook gnus-original-article-buffer)
          (run-hooks 'gnus-article-decode-hook)
-         (let ((gnus-newsgroup-name "dummy"))
+         (let ((gnus-newsgroup-name "dummy")
+               (gnus-newsrc-hashtb (or gnus-newsrc-hashtb
+                                       (gnus-make-hashtable 5))))
            (gnus-article-prepare-display))))
       ;; Disable article-mode-map.
       (use-local-map nil)

diff --git a/lisp/mml1991.el b/lisp/mml1991.el
index a449e5c..b3aa9f3 100644 (file)
--- a/lisp/mml1991.el
+++ b/lisp/mml1991.el
@@ -24,7 +24,7 @@
 
 ;;; Commentary:
 
-;; RCS: $Id: mml1991.el,v 6.5 2001/12/18 16:14:19 huber Exp $
+;; RCS: $Id: mml1991.el,v 6.6 2002/02/20 00:15:32 yamaoka Exp $
 
 ;;; Code:
 
@@ -36,7 +36,7 @@
               mml1991-mailcrypt-encrypt)
     (gpg mml1991-gpg-sign
         mml1991-gpg-encrypt))
-  "Alist of PGP/MIME functions.")
+  "Alist of PGP functions.")
 
 ;;; mailcrypt wrapper