2000-11-12 21:35:04 ShengHuo ZHU <zsh@cs.rochester.edu>

	* rfc2231.el (rfc2231-encode-string): Insert semi-colon and
	leading space.
	* mm-extern.el (mm-inline-external-body): Report error when no
	access-type.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1dd2207..0e0045a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-11-12 21:35:04  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * rfc2231.el (rfc2231-encode-string): Insert semi-colon and
+       leading space.
+       * mm-extern.el (mm-inline-external-body): Report error when no 
+       access-type.
+
 2000-11-12 19:48:30  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-sum.el (gnus-select-newsgroup): Change the error message.

diff --git a/lisp/mm-extern.el b/lisp/mm-extern.el
index f2b20f9..e9c07fb 100644 (file)
--- a/lisp/mm-extern.el
+++ b/lisp/mm-extern.el
@@ -116,7 +116,10 @@ the entire message.
 If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing."
   (let* ((access-type (cdr (assq 'access-type 
                                 (cdr (mm-handle-type handle)))))
-        (func (cdr (assq (intern (downcase access-type))
+        (func (cdr (assq (intern 
+                          (downcase 
+                           (or access-type
+                               (error "Couldn't find access type."))))
                          mm-extern-function-alist)))
         gnus-displaying-mime buf
         handles)

diff --git a/lisp/rfc2231.el b/lisp/rfc2231.el
index 4e5abe7..7c4983d 100644 (file)
--- a/lisp/rfc2231.el
+++ b/lisp/rfc2231.el
@@ -183,7 +183,7 @@ These look like \"us-ascii'en-us'This%20is%20%2A%2A%2Afun%2A%2A%2A\"."
        (goto-char (point-min))
        (while (not (eobp))
          (when (> (current-column) 60)
-           (insert "\n")
+           (insert ";\n")
            (setq broken t))
          (if (or (not (memq (following-char) ascii))
                  (memq (following-char) control)
@@ -200,7 +200,8 @@ These look like \"us-ascii'en-us'This%20is%20%2A%2A%2Afun%2A%2A%2A\"."
        (if (not broken)
            (insert param "*=")
          (while (not (eobp))
-           (insert param "*" (format "%d" (incf num)) "*=")
+           (insert (if (>= num 0) " " "\n ")
+                   param "*" (format "%d" (incf num)) "*=")
            (forward-line 1))))
        (spacep
        (goto-char (point-min))