[gnus git] branch master updated: m0-7-72-gfe3446f =1= 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

       via  fe3446fb569321acf903491849908c2fdc55f003 (commit)
      from  770a3e2fae94c221fbf7cd732eff8b1a5ff029f6 (commit)


- Log -----------------------------------------------------------------
commit fe3446fb569321acf903491849908c2fdc55f003
Author: Stefan Monnier <[email protected]>
Date:   Thu Jun 13 22:13:12 2013 +0000

    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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index befc688..cff8daf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-06-13  Stefan Monnier  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* shr.el (shr-expand-url): Expansion should chop off the bits after the
diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el
index 23ab241..6588f71 100644
--- a/lisp/sieve-manage.el
+++ b/lisp/sieve-manage.el
@@ -206,15 +206,15 @@ Return the buffer associated with the connection."
          :success "^OK.*\n"
          :return-list t
          :starttls-function
-         '(lambda (capabilities)
+         (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))))
 
@@ -502,7 +502,7 @@ If NAME is nil, return the full server list of capabilities."
 (defun sieve-manage-parse-capability (str)
   "Parse managesieve capability string `STR'.
 Set variable `sieve-manage-capability' to "
-  (let ((capas (remove-if #'null
+  (let ((capas (delq nil
                           (mapcar #'split-string-and-unquote
                                   (split-string str "\n")))))
     (when (string= "OK" (caar (last capas)))

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