(sieve-manage-mode): Do not set mode name manually, change mode-name to
(sieve-refresh-scriptlist): Use substitute-command-keys."Sieve-manage".
Remove commented code about cvs.
+ (sieve-manage-quit): New function.
+ (sieve-manage-mode-map): Bind 'q' to sieve-manage-quit.
2011-02-27 Lars Magne Ingebrigtsen <larsi@gnus.org>
(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 [(down-mouse-2)] 'sieve-edit-script)
(define-key map [(down-mouse-3)] 'sieve-manage-mode-menu)
map)
;; Commands used in sieve-manage mode:
+(defun sieve-manage-quit ()
+ "Quit."
+ (interactive)
+ (kill-buffer (current-buffer)))
+
(defun sieve-activate (&optional pos)
(interactive "d")
(let ((name (sieve-script-at-point)) err)