[gnus git] branch master updated: n0-13-54-gb5fa82f =1= sieve-manage: add binding to kill the buffer

       via  b5fa82f9d758d5e39bf7c8908189c44759cb90b4 (commit)
      from  bcd61738a232a58e48d27b04a5899d3acf0b9e53 (commit)


- Log -----------------------------------------------------------------
commit b5fa82f9d758d5e39bf7c8908189c44759cb90b4
Author: Julien Danjou <[email protected]>
Date:   Mon Feb 28 21:06:10 2011 +0100

    sieve-manage: add binding to kill the buffer
    
    Signed-off-by: Julien Danjou <[email protected]>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 96801c1..26db118 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -11,6 +11,8 @@
 	(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  <[email protected]>
 
diff --git a/lisp/sieve.el b/lisp/sieve.el
index fde5d8e..2111d34 100644
--- a/lisp/sieve.el
+++ b/lisp/sieve.el
@@ -126,6 +126,7 @@ 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 [(down-mouse-2)] 'sieve-edit-script)
     (define-key map [(down-mouse-3)] 'sieve-manage-mode-menu)
     map)
@@ -148,6 +149,11 @@ require \"fileinto\";
 
 ;; 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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    2 ++
 lisp/sieve.el  |    6 ++++++
 2 files changed, 8 insertions(+), 0 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project