From af83c6b70a9a90a1c4238776872a9621e3d5b1db Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 4 Sep 2000 11:22:59 +0000 Subject: [PATCH] (mu-cite-default-methods-alist): Don't include `ml-count' in `id' if it is not available. --- ChangeLog | 5 +++++ mu-cite.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index b45fe69..e9fbf32 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-09-04 Katsumi Yamaoka + + * mu-cite.el (mu-cite-default-methods-alist): Don't include + `ml-count' in `id' if it is not available. + 2000-05-25 Tanaka Akira * README.en: Update for CVS via SSH. diff --git a/mu-cite.el b/mu-cite.el index 6c21aff..cc9db01 100644 --- a/mu-cite.el +++ b/mu-cite.el @@ -128,12 +128,13 @@ (cons 'id (function (lambda () - (let ((ml-name (mu-cite-get-value 'ml-name))) + (let ((ml-name (mu-cite-get-value 'ml-name)) + (ml-count (mu-cite-get-value 'ml-count))) (if ml-name (concat "[" ml-name - " : No." - (mu-cite-get-value 'ml-count) + (if ml-count + (concat " : No." ml-count)) "]") (mu-cite-get-value 'message-id)))))) (cons 'in-id -- 1.7.10.4