diff options
| author | Glenn Morris | 2019-06-15 09:50:33 -0700 |
|---|---|---|
| committer | Glenn Morris | 2019-06-15 09:50:33 -0700 |
| commit | f6a47c822b77677845500e8c82ffd755cb9f18e6 (patch) | |
| tree | 0729ec65c56f3d5f15f72d938c6cced62d4e4613 | |
| parent | cd406b9fddcb5350d79cd8fe4769b8d1243aa2a5 (diff) | |
| parent | 62423246497760a5a58b986344c004131d5aea38 (diff) | |
| download | emacs-f6a47c822b77677845500e8c82ffd755cb9f18e6.tar.gz emacs-f6a47c822b77677845500e8c82ffd755cb9f18e6.zip | |
Merge from origin/emacs-26
6242324 * lisp/net/sieve-manage.el (sieve-manage-parse-capability): D...
| -rw-r--r-- | lisp/net/sieve-manage.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/sieve-manage.el b/lisp/net/sieve-manage.el index 72731b8fdae..d14475a9d53 100644 --- a/lisp/net/sieve-manage.el +++ b/lisp/net/sieve-manage.el | |||
| @@ -511,7 +511,8 @@ If NAME is nil, return the full server list of capabilities." | |||
| 511 | 511 | ||
| 512 | (defun sieve-manage-parse-capability (str) | 512 | (defun sieve-manage-parse-capability (str) |
| 513 | "Parse managesieve capability string `STR'. | 513 | "Parse managesieve capability string `STR'. |
| 514 | Set variable `sieve-manage-capability' to " | 514 | Return alist of capabilities, suitable for assignment |
| 515 | to local variable `sieve-manage-capability'." | ||
| 515 | (let ((capas (delq nil | 516 | (let ((capas (delq nil |
| 516 | (mapcar #'split-string-and-unquote | 517 | (mapcar #'split-string-and-unquote |
| 517 | (split-string str "\n"))))) | 518 | (split-string str "\n"))))) |