* lisp/gnus-spec.el (gnus-tilde-pad-form): Use old macro form.

	* lisp/gnus-art.el (article-decode-mime-words): Abolished.

diff --git a/ChangeLog b/ChangeLog
index ba40bc4..62e7de3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 1998-09-10  Katsumi Yamaoka   <yamaoka@jpl.org>
 
+       * lisp/gnus-spec.el (gnus-tilde-pad-form): Use old macro form.
+
+       * lisp/gnus-art.el (article-decode-mime-words): Abolished.
+
+1998-09-10  Katsumi Yamaoka   <yamaoka@jpl.org>
+
        * lisp/gnus.el (gnus-version-number): Update to 6.10.016.
 
        * Sync up with Pterodactyl Gnus 0.24.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 54af5ba..efe14d1 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1783,7 +1783,6 @@ If variable `gnus-use-long-file-name' is non-nil, it is
      article-date-iso8601
      article-date-original
      article-date-ut
-     article-decode-mime-words
      article-date-user
      article-date-lapsed
      article-emphasize

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 8d7de10..8d1eee0 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -245,9 +245,8 @@
 (defun gnus-tilde-pad-form (el pad-width)
   "Dummy function except for XEmacs-mule. It will be redefined
 by `gnus-xmas-redefine'."
-  (if (symbolp el)
-      `(eval ,el)
-    `,el))
+  (let ((val (if (symbolp el) (eval el) el)))
+    (` (, val))))
 
 (defun gnus-tilde-max-form (el max-width)
   "Return a form that limits EL to MAX-WIDTH."