diff options
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index c491f16dd86..dae4b0dced6 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -8024,18 +8024,11 @@ regular text mode tabbing command." (skip-chars-backward "^, \t\n") (point)))) (completion-ignore-case t) (e (progn (skip-chars-forward "^,\t\n ") (point))) - group collection) - (when (and (boundp 'gnus-active-hashtb) - gnus-active-hashtb) - (mapatoms - (lambda (symbol) - (setq group (symbol-name symbol)) - (push (if (string-match "[^\000-\177]" group) - (gnus-group-decoded-name group) - group) - collection)) - gnus-active-hashtb)) - (completion-in-region b e collection))) + (collection (when (and (boundp 'gnus-active-hashtb) + gnus-active-hashtb) + (hash-table-keys gnus-active-hashtb)))) + (when collection + (completion-in-region b e collection)))) (defun message-expand-name () (cond ((and (memq 'eudc message-expand-name-databases) |