sieve.el (sieve-upload-and-bury): New. Suggested by

kai.grossjohann@uni-duisburg.de (Kai Großjohann).

sieve-mode.el (sieve-mode-map): Bind s-u-a-b to C-c C-c.
Suggested by kai.grossjohann@uni-duisburg.de (Kai Großjohann).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index facd55b..0f8f0be 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2003-01-12  Simon Josefsson  <jas@extundo.com>
+
+       * sieve.el (sieve-upload-and-bury): New.  Suggested by
+       kai.grossjohann@uni-duisburg.de (Kai Gro\e,A_\e(Bjohann).
+
+       * sieve-mode.el (sieve-mode-map): Bind s-u-a-b to C-c C-c.
+       Suggested by kai.grossjohann@uni-duisburg.de (Kai Gro\e,A_\e(Bjohann).
+
 2003-01-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el (gnus-ignored-headers): Don't include the ^ and :

diff --git a/lisp/sieve-mode.el b/lisp/sieve-mode.el
index d86ea87..944b189 100644 (file)
--- a/lisp/sieve-mode.el
+++ b/lisp/sieve-mode.el
@@ -159,6 +159,7 @@
 (defvar sieve-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "\C-c\C-l" 'sieve-upload)
+    (define-key map "\C-c\C-c" 'sieve-upload-and-bury)
     (define-key map "\C-c\C-m" 'sieve-manage)
     map)
   "Key map used in sieve mode.")

diff --git a/lisp/sieve.el b/lisp/sieve.el
index f41fa7c..edfd385 100644 (file)
--- a/lisp/sieve.el
+++ b/lisp/sieve.el
@@ -371,6 +371,12 @@ Server  : " server ":" (or port "2000") "
            (message (concat "Sieve upload done.  Use `C-c RET' to manage scripts."))
          (message "Sieve upload failed: %s" (nth 2 err)))))))
 
+;;;###autoload
+(defun sieve-upload-and-bury (&optional name)
+  (interactive)
+  (sieve-upload name)
+  (bury-buffer))
+
 (provide 'sieve)
 
 ;; sieve.el ends here