Mercurial > emacs
diff lisp/gnus/gnus-sum.el @ 111792:6125476aab24
gnus-util.el (gnus-macroexpand-all): New function.
gnus-sum.el (gnus-summary-line-format-alist): Use gnus-macroexpand-all instead of macroexpand-all that is unavailable in XEmacs.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Fri, 03 Dec 2010 02:17:23 +0000 |
parents | f97704487fb3 |
children | 5e488dbb17f7 |
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el Fri Dec 03 10:52:43 2010 +0900 +++ b/lisp/gnus/gnus-sum.el Fri Dec 03 02:17:23 2010 +0000 @@ -1361,13 +1361,13 @@ (?c (or (mail-header-chars gnus-tmp-header) 0) ?d) (?k (gnus-summary-line-message-size gnus-tmp-header) ?s) (?L gnus-tmp-lines ?s) - (?Z (or ,(macroexpand-all + (?Z (or ,(gnus-macroexpand-all '(nnir-article-rsv (mail-header-number gnus-tmp-header))) 0) ?d) - (?G (or ,(macroexpand-all + (?G (or ,(gnus-macroexpand-all '(nnir-article-group (mail-header-number gnus-tmp-header))) "") ?s) - (?g (or ,(macroexpand-all + (?g (or ,(gnus-macroexpand-all '(gnus-group-short-name (nnir-article-group (mail-header-number gnus-tmp-header)))) "") ?s)