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

[elisp/mu-cite.git] / mu-cite.el

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