From: yamaoka <yamaoka>
Date: Thu, 10 Sep 1998 06:17:39 +0000 (+0000)
Subject: 	* lisp/gnus-spec.el (gnus-tilde-pad-form): Use old macro form.
X-Git-Tag: pgnus-ichikawa-199811302358~220
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c1bcf70d22a7b8028d45f22fcee5d5d32daccd3b;p=elisp%2Fgnus.git-

	* 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
--- 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
--- 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
--- 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."