+2013-06-13 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * sieve-manage.el (sieve-manage-open-server): Don't quote lambda.
+ Use plist-get rather than CL's getf.
+ (sieve-manage-parse-capability): Avoid CL's remove-if.
+
2013-06-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
* shr.el (shr-expand-url): Expansion should chop off the bits after the
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)
+2013-06-10 Roy Hashimoto <roy.hashimoto@gmail.com> (tiny change)
* mm-view.el (mm-pkcs7-signed-magic): Allow newline in the regexp and
make it easier to read.
:success "^OK.*\n"
:return-list t
:starttls-function
- '(lambda (capabilities)
- (when (string-match "\\bSTARTTLS\\b" capabilities)
- "STARTTLS\r\n")))
+ (lambda (capabilities)
+ (when (string-match "\\bSTARTTLS\\b" capabilities)
+ "STARTTLS\r\n")))
(setq sieve-manage-process proc)
(setq sieve-manage-capability
- (sieve-manage-parse-capability (getf props :capabilities)))
+ (sieve-manage-parse-capability (plist-get props :capabilities)))
;; Ignore new capabilities issues after successful STARTTLS
(when (and (memq stream '(nil network starttls))
- (eq (getf props :type) 'tls))
+ (eq (plist-get props :type) 'tls))
(sieve-manage-drop-next-answer))
(current-buffer))))
(defun sieve-manage-parse-capability (str)
"Parse managesieve capability string `STR'.
Set variable `sieve-manage-capability' to "
- (let ((capas (remove-if #'null
- (mapcar #'split-string-and-unquote
- (split-string str "\n")))))
+ (let ((capas (delq nil
+ (mapcar #'split-string-and-unquote
+ (split-string str "\n")))))
(when (string= "OK" (caar (last capas)))
(setq sieve-manage-state 'nonauth))
capas))