Move image files to etc/gnus.

[gnus] / lisp / mml2015.el

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index b682d89..126f647 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -131,10 +131,10 @@
        mm-security-handle 'gnus-info "Failed"))))
 
 (defun mml2015-fix-micalg (alg)
-  (upcase
-   (if (and alg (string-match "^pgp-" alg))
-       (substring alg (match-end 0))
-     alg)))
+  (and alg
+       (upcase (if (string-match "^pgp-" alg)
+                  (substring alg (match-end 0))
+                alg))))
 
 (defun mml2015-mailcrypt-verify (handle ctl)
   (catch 'error