[gnus git] branch master updated: m0-7-42-g492a488 =1= sieve.el: fix handling of PORT parameter, quitting

       via  492a488c523f66af16089368d6177145a3a59b45 (commit)
      from  6eb601247eb0f448a7a6cfcd796cc1f00f452ce8 (commit)


- Log -----------------------------------------------------------------
commit 492a488c523f66af16089368d6177145a3a59b45
Author: Albert Krewinkel <[email protected]>
Date:   Sun May 19 12:51:33 2013 +0200

    sieve.el: fix handling of PORT parameter, quitting
    
    * Put point at beginning of buffer when viewing a script.
    
    * (sieve-open-server): respect the PORT parameter.
    
    * Show the correct port number in sieve-buffer's header.
      Fixed code to also work with a string as port specifier.
    
    * Properly close the connection on pressing 'q'.  Make sieve-manage-quit
      close the connection and process buffer.  Also, remove duplicate
      keybinding for 'q'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02a13e1..81122f1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2013-06-10  Albert Krewinkel  <[email protected]>
+
+	* sieve.el: Put point at beginning of buffer when viewing a script.
+	(sieve-open-server): respect the PORT parameter. Show the correct port
+	number in sieve-buffer's header. Fixed code to also work with a string
+	as port specifier. Properly close the connection on pressing 'q'. Make
+	sieve-manage-quit close the connection and process buffer. Also, remove
+	duplicate keybinding for 'q'.
+
 2013-06-10  Roy Hashimoto <[email protected]>  (tiny change)
 
 	* mm-view.el (mm-pkcs7-signed-magic): Allow newline in the regexp and
diff --git a/lisp/sieve.el b/lisp/sieve.el
index 0e46cb6..2c11c03 100644
--- a/lisp/sieve.el
+++ b/lisp/sieve.el
@@ -109,7 +109,6 @@ require \"fileinto\";
     ;; various
     (define-key map "?" 'sieve-help)
     (define-key map "h" 'sieve-help)
-    (define-key map "q" 'kill-buffer)
     ;; activating
     (define-key map "m" 'sieve-activate)
     (define-key map "u" 'sieve-deactivate)
@@ -152,6 +151,8 @@ require \"fileinto\";
 (defun sieve-manage-quit ()
   "Quit."
   (interactive)
+  (sieve-manage-close sieve-manage-buffer)
+  (kill-buffer sieve-manage-buffer)
   (kill-buffer (current-buffer)))
 
 (defun sieve-activate (&optional pos)
@@ -206,6 +207,7 @@ require \"fileinto\";
       (insert sieve-template))
     (sieve-mode)
     (setq sieve-buffer-script-name name)
+    (beginning-of-buffer)
     (message
      (substitute-command-keys
       "Press \\[sieve-upload] to upload script to server."))))
@@ -256,10 +258,9 @@ Used to bracket operations which move point in the sieve-buffer."
   (setq buffer-read-only nil)
   (erase-buffer)
   (buffer-disable-undo)
-  (insert "\
-Server  : " server ":" (or port sieve-manage-default-port) "
-
-")
+  (let* ((port (or port sieve-manage-default-port))
+         (header (format "Server : %s:%s\n\n" server port)))
+    (insert header))
   (set (make-local-variable 'sieve-buffer-header-end)
        (point-max)))
 
@@ -305,7 +306,7 @@ Server  : " server ":" (or port sieve-manage-default-port) "
   (with-current-buffer
       (or ;; open server
        (set (make-local-variable 'sieve-manage-buffer)
-	    (sieve-manage-open server))
+	    (sieve-manage-open server port))
        (error "Error opening server %s" server))
     (sieve-manage-authenticate)))
 

-----------------------------------------------------------------------
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 |    9 +++++++++
 lisp/sieve.el  |   13 +++++++------
 2 files changed, 16 insertions(+), 6 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