diff options
| author | Eric Abrahamsen | 2017-02-22 17:26:11 -0800 |
|---|---|---|
| committer | Noam Postavsky | 2017-02-28 21:57:07 -0500 |
| commit | 16e304f38e57a9a31f1468ba6ebcb8a71efd253d (patch) | |
| tree | 1776a4427c50020506c2cbcf7612dabbfc27ebe7 | |
| parent | b7250496bd2d681a7a7f3c958eb3f0047b5c0a22 (diff) | |
| download | emacs-16e304f38e57a9a31f1468ba6ebcb8a71efd253d.tar.gz emacs-16e304f38e57a9a31f1468ba6ebcb8a71efd253d.zip | |
Don't use mapconcat with chars in gnus registry marks (Bug#25839)
* lisp/gnus/gnus-registry.el (gnus-registry-article-marks-to-chars):
Instead, use a plain concat, which will create a string out of a list
of characters.
| -rw-r--r-- | lisp/gnus/gnus-registry.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el index f728b191110..51f6459d2f8 100644 --- a/lisp/gnus/gnus-registry.el +++ b/lisp/gnus/gnus-registry.el | |||
| @@ -968,12 +968,13 @@ Uses `gnus-registry-marks' to find what shortcuts to install." | |||
| 968 | "Show the marks for an article by the :char property." | 968 | "Show the marks for an article by the :char property." |
| 969 | (let* ((id (mail-header-message-id headers)) | 969 | (let* ((id (mail-header-message-id headers)) |
| 970 | (marks (when id (gnus-registry-get-id-key id 'mark)))) | 970 | (marks (when id (gnus-registry-get-id-key id 'mark)))) |
| 971 | (mapconcat (lambda (mark) | 971 | (concat (delq nil |
| 972 | (plist-get | 972 | (mapcar |
| 973 | (cdr-safe | 973 | (lambda (m) |
| 974 | (assoc mark gnus-registry-marks)) | 974 | (plist-get |
| 975 | :char)) | 975 | (cdr-safe (assoc m gnus-registry-marks)) |
| 976 | marks ""))) | 976 | :char)) |
| 977 | marks))))) | ||
| 977 | 978 | ||
| 978 | ;; use like this: | 979 | ;; use like this: |
| 979 | ;; (defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-names) | 980 | ;; (defalias 'gnus-user-format-function-M 'gnus-registry-article-marks-to-names) |