diff options
Diffstat (limited to 'lisp/gnus/sieve.el')
| -rw-r--r-- | lisp/gnus/sieve.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el index 2c11c039d56..42e6330273a 100644 --- a/lisp/gnus/sieve.el +++ b/lisp/gnus/sieve.el @@ -125,7 +125,8 @@ require \"fileinto\"; (define-key map "f" 'sieve-edit-script) (define-key map "o" 'sieve-edit-script-other-window) (define-key map "r" 'sieve-remove) - (define-key map "q" 'sieve-manage-quit) + (define-key map "q" 'sieve-bury-buffer) + (define-key map "Q" 'sieve-manage-quit) (define-key map [(down-mouse-2)] 'sieve-edit-script) (define-key map [(down-mouse-3)] 'sieve-manage-mode-menu) map) @@ -149,12 +150,17 @@ require \"fileinto\"; ;; Commands used in sieve-manage mode: (defun sieve-manage-quit () - "Quit." + "Quit Manage Sieve and close the connection." (interactive) (sieve-manage-close sieve-manage-buffer) (kill-buffer sieve-manage-buffer) (kill-buffer (current-buffer))) +(defun sieve-bury-buffer () + "Bury the Manage Sieve buffer without closing the connection." + (interactive) + (bury-buffer)) + (defun sieve-activate (&optional pos) (interactive "d") (let ((name (sieve-script-at-point)) err) @@ -207,7 +213,7 @@ require \"fileinto\"; (insert sieve-template)) (sieve-mode) (setq sieve-buffer-script-name name) - (beginning-of-buffer) + (goto-char (point-min)) (message (substitute-command-keys "Press \\[sieve-upload] to upload script to server.")))) |