(mu-cite-default-methods-alist): Don't include `ml-count' in `id' if it is not

available.

diff --git a/ChangeLog b/ChangeLog
index b45fe69..e9fbf32 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-09-04  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * 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      <akr@m17n.org>
 
        * README.en: Update for CVS via SSH.

diff --git a/mu-cite.el b/mu-cite.el
index 6c21aff..cc9db01 100644 (file)
--- 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