Modified .wl
[dotfiles.git] / .wl
diff --git a/.wl b/.wl
index 577129b..dfcddf2 100644 (file)
--- a/.wl
+++ b/.wl
@@ -1,5 +1,5 @@
 ;; mode: -*-emacs-lisp-*-
-
+;
 (setq wl-stay-folder-window t
       wl-local-domain "gpcf.eu"
       wl-message-id-domain "aubergine.gpcf.eu"
     (wl-summary-jump-to-current-message)
     (mc-verify)))
 
-(defun mc-wl-decrypt-message ()
-  (interactive)
-;  (wl-summary-enter-handler)
-  (save-window-excursion
-    (wl-summary-jump-to-current-message)
-    (gpcf-decrypt-mail)))
-
 (eval-after-load "mailcrypt"
   '(setq mc-modes-alist
        (append
          ;; Set keybindings for
          ;; PGP-Inline
          '(lambda ()
-            (local-set-key "k" 'mc-wl-decrypt-message)
+            (local-set-key "k" '(lambda () 
+                                  (interactive)
+                                  (save-window-excursion
+                                    (wl-summary-jump-to-current-message)
+                                    (gpcf-decrypt-mail))))
             (local-set-key "0" 'mc-wl-verify-signature)
             (local-set-key "X" '(lambda ()
                                        ; checks for mail remotely using rsync.