[Emacs-diffs] trunk r112987: lisp/gnus/sieve.el: Rebind q to (sieve-bury-buffer), bind Q to (sieve-manage-quit)

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 112987
revision-id: address@hidden
parent: address@hidden
author: Albert Krewinkel <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2013-06-14 09:48:49 +0000
message:
  lisp/gnus/sieve.el: Rebind q to (sieve-bury-buffer), bind Q to 
(sieve-manage-quit)
  
  doc/misc/sieve.texi: (Managing Sieve): Fix port in example, fix documentation 
for keys q and Q
  (Standards): Reference RFC5804 as the defining document of the managesieve 
protocol
modified:
  doc/misc/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-6331
  doc/misc/sieve.texi            sieve.texi-20091113204419-o5vbwnq5f7feedwu-6320
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/sieve.el             sieve.el-20091113204419-o5vbwnq5f7feedwu-3283

=== modified file 'doc/misc/ChangeLog'
--- a/doc/misc/ChangeLog        2013-06-10 02:41:49 +0000
+++ b/doc/misc/ChangeLog        2013-06-14 09:48:49 +0000
@@ -1,3 +1,10 @@
+2013-06-13  Albert Krewinkel  <address@hidden>
+
+       * sieve.texi: (Managing Sieve): Fix port in example, fix documentation
+       for keys q and Q.
+       (Standards): Reference RFC5804 as the defining document of the
+       managesieve protocol.
+
 2013-06-10  Aidan Gauland  <address@hidden>
 
        * eshell.texi (Input/Output): Expand to cover new visual-command

=== modified file 'doc/misc/sieve.texi'
--- a/doc/misc/sieve.texi       2013-02-12 17:36:54 +0000
+++ b/doc/misc/sieve.texi       2013-06-14 09:48:49 +0000
@@ -149,7 +149,7 @@
 looks something like:
 
 @example
-Server  : mailserver:2000
+Server  : mailserver:sieve
 
 2 scripts on server, press RET on a script name edits it, or
 press RET on <new script> to create a new script.
@@ -214,6 +214,11 @@
 @findex sieve-help
 Displays help in the minibuffer.
 
address@hidden Q
address@hidden Q
address@hidden sieve-manage-quit
+Quit Manage Sieve and close the connection.
+
 @end table
 
 @node Examples
@@ -342,7 +347,7 @@
 @item RFC3028
 Sieve: A Mail Filtering Language.
 
address@hidden draft-martin-managesieve-03
address@hidden RFC5804
 A Protocol for Remotely Managing Sieve Scripts
 
 @end table

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-06-14 03:24:05 +0000
+++ b/lisp/gnus/ChangeLog       2013-06-14 09:48:49 +0000
@@ -1,3 +1,8 @@
+2013-06-13  Albert Krewinkel  <address@hidden>
+
+       * sieve.el: Rebind q to (sieve-bury-buffer), bind Q to
+       (sieve-manage-quit).
+
 2013-06-14  David Edmondson  <address@hidden>  (tiny change)
 
        * mml2015.el (mml2015-maximum-key-image-dimension): New user option to

=== modified file 'lisp/gnus/sieve.el'
--- a/lisp/gnus/sieve.el        2013-06-10 11:44:53 +0000
+++ b/lisp/gnus/sieve.el        2013-06-14 09:48:49 +0000
@@ -125,7 +125,8 @@
     (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 @@
 ;; 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)