diff options
| author | Lars Ingebrigtsen | 2018-04-15 00:24:02 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2018-04-15 00:24:02 +0200 |
| commit | ad2c4d3c6166b6a02e6256f3aff171fbf5a2c80b (patch) | |
| tree | 8db525ca700f4b8eddc632e790088021895a8703 | |
| parent | 25487b921b9a24eeed0c1a4e9bcc5043845f0f20 (diff) | |
| download | emacs-ad2c4d3c6166b6a02e6256f3aff171fbf5a2c80b.tar.gz emacs-ad2c4d3c6166b6a02e6256f3aff171fbf5a2c80b.zip | |
Rewrite string-as-unibyte/string-as-multibyte logic in nnmail
* lisp/gnus/nnmail.el (nnmail-insert-xref): Rewrite
string-as-unibyte/string-as-multibyte logic and confirm that the
result is the same in both multibyte and unibyte buffers after the
change.
| -rw-r--r-- | lisp/gnus/nnmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 249bd65a9d7..d751f182e30 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el | |||
| @@ -1250,10 +1250,10 @@ Return the number of characters in the body." | |||
| 1250 | (insert (format "Xref: %s" (system-name))) | 1250 | (insert (format "Xref: %s" (system-name))) |
| 1251 | (while group-alist | 1251 | (while group-alist |
| 1252 | (insert (if (mm-multibyte-p) | 1252 | (insert (if (mm-multibyte-p) |
| 1253 | (string-as-multibyte | 1253 | (format " %s:%d" (caar group-alist) (cdar group-alist)) |
| 1254 | (format " %s:%d" (caar group-alist) (cdar group-alist))) | 1254 | (encode-coding-string |
| 1255 | (string-as-unibyte | 1255 | (format " %s:%d" (caar group-alist) (cdar group-alist)) |
| 1256 | (format " %s:%d" (caar group-alist) (cdar group-alist))))) | 1256 | 'utf-8))) |
| 1257 | (setq group-alist (cdr group-alist))) | 1257 | (setq group-alist (cdr group-alist))) |
| 1258 | (insert "\n"))) | 1258 | (insert "\n"))) |
| 1259 | 1259 | ||