diff options
| author | Eric Abrahamsen | 2019-06-21 13:35:27 -0700 |
|---|---|---|
| committer | Eric Abrahamsen | 2019-06-21 13:35:27 -0700 |
| commit | 5563d1cd829e6c17d22c18e345101feaf736312a (patch) | |
| tree | b618184fbe66020a637142eb96d5f9060d4e02a9 /lisp/gnus/gnus-msg.el | |
| parent | cf804c86724248fc68c3adf74cad56c590e56194 (diff) | |
| download | emacs-scratch/gnus-decoded.tar.gz emacs-scratch/gnus-decoded.zip | |
Remove all remaining uses of gnus-group-decoded-namescratch/gnus-decoded
* lisp/gnus/gnus-art.el (gnus-article-setup-buffer):
* lisp/gnus/nnrss.el (nnrss-retrieve-groups):
* lisp/gnus/message.el (message-forward-subject-author-subject):
(message-forward-subject-name-subject):
* lisp/gnus/gnus-msg.el (gnus-inews-insert-gcc):
(gnus-inews-make-draft):
* lisp/gnus/gnus-group.el (gnus-group-compact-group):
(gnus-group-list-active):
(gnus-group-kill-group):
(gnus-group-set-current-level):
(gnus-group-expire-articles-1):
(gnus-group-catchup-current):
(gnus-group-edit-group):
(gnus-group-rename-group):
(gnus-group-delete-group):
(gnus-group-name-at-point): Remove calls in all these places, group
names are always decoded.
* lisp/gnus/gnus-cache.el: Remove variables
gnus-cache-unified-group-names and gnus-cache-decoded-group-names,
and function gnus-cache-decoded-group-name.
(gnus-cache-generate-active): Do not access
gnus-cache-unified-group-names.
(gnus-cache-file-name): Don't decode.
Diffstat (limited to 'lisp/gnus/gnus-msg.el')
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index b6d649d7603..0ac0164bb7a 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el | |||
| @@ -413,7 +413,7 @@ Thank you for your help in stamping out bugs. | |||
| 413 | (defun gnus-inews-make-draft (articles) | 413 | (defun gnus-inews-make-draft (articles) |
| 414 | `(lambda () | 414 | `(lambda () |
| 415 | (gnus-inews-make-draft-meta-information | 415 | (gnus-inews-make-draft-meta-information |
| 416 | ,(gnus-group-decoded-name gnus-newsgroup-name) ',articles))) | 416 | ,gnus-newsgroup-name ',articles))) |
| 417 | 417 | ||
| 418 | (autoload 'nnir-article-number "nnir" nil nil 'macro) | 418 | (autoload 'nnir-article-number "nnir" nil nil 'macro) |
| 419 | (autoload 'nnir-article-group "nnir" nil nil 'macro) | 419 | (autoload 'nnir-article-group "nnir" nil nil 'macro) |
| @@ -1722,7 +1722,6 @@ this is a reply." | |||
| 1722 | (defun gnus-inews-insert-gcc (&optional group) | 1722 | (defun gnus-inews-insert-gcc (&optional group) |
| 1723 | "Insert the Gcc to say where the article is to be archived." | 1723 | "Insert the Gcc to say where the article is to be archived." |
| 1724 | (let* ((group (or group gnus-newsgroup-name)) | 1724 | (let* ((group (or group gnus-newsgroup-name)) |
| 1725 | (group (when group (gnus-group-decoded-name group))) | ||
| 1726 | (var (or gnus-outgoing-message-group gnus-message-archive-group)) | 1725 | (var (or gnus-outgoing-message-group gnus-message-archive-group)) |
| 1727 | (gcc-self-val | 1726 | (gcc-self-val |
| 1728 | (and group (not (gnus-virtual-group-p group)) | 1727 | (and group (not (gnus-virtual-group-p group)) |