From 262a96891ab74e57d0a577099c5a473637224d52 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Sat, 24 Mar 2007 19:40:29 +0000 Subject: [PATCH] (gnus-emacs-version): Include "no MULE" in no-MULE XEmacs. --- lisp/ChangeLog | 3 +++ lisp/gnus-util.el | 17 ++++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 90f310b59..387aa8a91 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2007-03-24 Reiner Steib + * gnus-util.el (gnus-emacs-version): Include "no MULE" in no-MULE + XEmacs. + * gnus-art.el (gnus-article-browse-html-article): Fix typo in doc string. (gnus-button-alist): Also catch ` k ...'. diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 7e94d4e6f..85de169a7 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -1578,13 +1578,16 @@ predicate on the elements." ((or (featurep 'sxemacs) (featurep 'xemacs)) ;; XEmacs or SXEmacs: (concat emacsname "/" emacs-program-version - " (" - (when (and (memq 'codename lst) - codename) - (concat codename - (when system-v ", "))) - (when system-v system-v) - ")")) + (let (plst) + (when (memq 'codename lst) + (push codename plst)) + (when system-v + (push system-v plst)) + (unless (featurep 'mule) + (push "no MULE" plst)) + (when (> (length plst) 0) + (concat + " (" (mapconcat 'identity (reverse plst) ", ") ")"))))) (t emacs-version)))) (defun gnus-rename-file (old-path new-path &optional trim) -- 2.25.1