updates
[emacs.git] / .emacs.d / elisp / local / ganneff-gnus.el
index 3afdbd6..45993b1 100644 (file)
 ;;;###autoload
 (defun sign-or-crypt ()
   (interactive)
 ;;;###autoload
 (defun sign-or-crypt ()
   (interactive)
-  (let ((ans (completing-read "Sign/Encrypt/Nothing? "
-                             '(("s") ("e") ("n"))
-                              t nil nil nil)))
+  (let ((ans (completing-read "Sign/Inlinesign/Encrypt/Nothing? "
+                              '(("s" s) ("i" i) ("e" e) ("n" n))
+                              nil t nil)))
     (cond ((string= ans "s")
     (cond ((string= ans "s")
-          (message-goto-body)
-          (insert "<#secure method=pgpmime mode=sign>\n"))
+           (mml-secure-message mml-default-sign-method 'sign)
+           ;(message-goto-body)
+           ;(insert "<#secure method=pgpmime mode=sign>\n")
+           )
+          ((string= ans "i")
+           (mml-secure-message "pgp" 'sign))
           ((string= ans "e")
           ((string= ans "e")
-          (message-goto-body)
-          (insert "<#secure method=pgpmime mode=signencrypt>\n"))
+           (mml-secure-message-encrypt-pgpmime)
+           ;(message-goto-body)
+           ;(insert "<#secure method=pgpmime mode=signencrypt>\n")
+           )
           ((string= ans "n")
            (message "Message sent unmodified."))
           (t
            (error "Invalid choice.")))))
 
           ((string= ans "n")
            (message "Message sent unmodified."))
           (t
            (error "Invalid choice.")))))
 
-
 (provide 'ganneff-gnus)
 (provide 'ganneff-gnus)