From daee7480135144bbc6fe5ec7944d226083fbf36f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 29 Jun 2004 23:39:33 +0000 Subject: [PATCH] Synch to No Gnus 200406292339. --- lisp/ChangeLog | 5 +++++ lisp/mm-util.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 845c0fd..a2aa049 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-06-29 Katsumi Yamaoka + + * mm-util.el (mm-enrich-utf-8-by-mule-ucs): Fix cleaning of + after-load-alist. + 2004-06-29 Lars Magne Ingebrigtsen * gnus-group.el (gnus-group-get-new-news-this-group): Don't diff --git a/lisp/mm-util.el b/lisp/mm-util.el index bf208cc..c0862eb 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -270,9 +270,10 @@ system object in XEmacs." This function will run when the `un-define' module is loaded under XEmacs, and fill the `utf-8' entry in `mm-mime-mule-charset-alist' with Mule charsets. It is completely useless for Emacs." - (setq after-load-alist - (delete '("un-define" (mm-enrich-utf-8-by-mule-ucs)) - after-load-alist)) + (unless (cdr (delete '(mm-enrich-utf-8-by-mule-ucs) + (assoc "un-define" after-load-alist))) + (setq after-load-alist + (delete '("un-define") after-load-alist))) (when (boundp 'unicode-basic-translation-charset-order-list) (condition-case nil (let ((val (delq -- 1.7.10.4