procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/gnus/sieve.el: Rebind q to (sieve-bury-buffer), bind Q to (sieve-manage-quit)

Browse source 
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
This commit is contained in:
Albert Krewinkel 2013-06-14 09:48:49 +00:00 • committed by Katsumi Yamaoka
parent d4466a91f2
commit 745b097bf7
4 changed files with 27 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
doc/misc/ChangeLog
View file

@ -1,3 +1,10 @@
2013-06-13 Albert Krewinkel <tarleb@moltkeplatz.de>
* 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 <aidalgol@amuri.net>
* eshell.texi (Input/Output): Expand to cover new visual-command

9
doc/misc/sieve.texi
View file

@ -149,7 +149,7 @@ When a server has been successfully contacted, the Manage Sieve buffer
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 @@ Bury the Manage Sieve buffer without closing the connection.
@findex sieve-help
Displays help in the minibuffer.
@item Q
@kindex Q
@findex sieve-manage-quit
Quit Manage Sieve and close the connection.
@end table
@node Examples
@ -342,7 +347,7 @@ lists the relevant ones. They can all be fetched from
@item RFC3028
Sieve: A Mail Filtering Language.
@item draft-martin-managesieve-03
@item RFC5804
A Protocol for Remotely Managing Sieve Scripts
@end table

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2013-06-13 Albert Krewinkel <tarleb@moltkeplatz.de>
* sieve.el: Rebind q to (sieve-bury-buffer), bind Q to
(sieve-manage-quit).
2013-06-14 David Edmondson <dme@dme.org> (tiny change)
* mml2015.el (mml2015-maximum-key-image-dimension): New user option to

10
lisp/gnus/sieve.el
View file

@ -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)