+2013-06-10 Albert Krewinkel <krewinkel@moltkeplatz.de>
+
+ * 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 <roy.hashimoto@gmail.com> (tiny change)
* mm-view.el (mm-pkcs7-signed-magic): Allow newline in the regexp and
;; 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)
(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)
(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."))))
(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)))
(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)))