update.

[elisp/semi.git] / semi-setup.el

diff --git a/semi-setup.el b/semi-setup.el
index 7efd3ab..013d933 100644 (file)
--- a/semi-setup.el
+++ b/semi-setup.el
@@ -35,10 +35,8 @@ it is used as hook to set."
   (if (featurep module)
       (funcall func)
     (or hook-name
-       (setq hook-name (intern (concat (symbol-name module) "-load-hook")))
-       )
-    (add-hook hook-name func)
-    ))
+       (setq hook-name (intern (concat (symbol-name module) "-load-hook"))))
+    (add-hook hook-name func)))
 
 
 ;; for image/*
@@ -68,8 +66,7 @@ it is used as hook to set."
            (body-presentation-method . mime-preview-text/html)))
         
         (set-alist 'mime-view-type-subtype-score-alist
-                   '(text . html) 3)
-        )))
+                   '(text . html) 3))))
 
 ;; for text/x-vcard
 (defvar mime-setup-enable-vcard
@@ -140,11 +137,21 @@ it is used as hook to set."
 
         (mime-add-condition
          'action
+         '((type . application)(subtype . x-pkcs7-signature)
+           (method . mime-verify-application/pkcs7-signature))
+         'strict "mime-pgp")
+
+        (mime-add-condition
+         'action
          '((type . application)(subtype . pkcs7-mime)
            (method . mime-view-application/pkcs7-mime))
          'strict "mime-pgp")
-        ))
-  )
+
+        (mime-add-condition
+         'action
+         '((type . application)(subtype . x-pkcs7-mime)
+           (method . mime-view-application/pkcs7-mime))
+         'strict "mime-pgp"))))
 
 
 ;;; @ for mime-edit
@@ -191,8 +198,7 @@ it is used as hook to set."
        (let ((key
               (or (cdr (assq major-mode mime-setup-signature-key-alist))
                   mime-setup-default-signature-key)))
-         (define-key keymap key (function insert-signature))
-         ))))
+         (define-key keymap key (function insert-signature))))))
 
 (when mime-setup-use-signature
   (autoload 'insert-signature "signature" "Insert signature" t)