[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r112987: lisp/gnus/sieve.el: Rebind q to (sieve-bury
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] trunk r112987: lisp/gnus/sieve.el: Rebind q to (sieve-bury-buffer), bind Q to (sieve-manage-quit) |
Date: |
Fri, 14 Jun 2013 09:48:50 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r112987: lisp/gnus/sieve.el: Rebind q to (sieve-bury-buffer), bind Q to (sieve-manage-quit),
Katsumi Yamaoka <=