diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-14 17:07:48 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-14 17:07:48 +1100 |
| commit | 66d9ef95c0f9407d2a6d26bcd7ed84a303294b53 (patch) | |
| tree | 163a6dea8e393ae4856a155374c8829b4af08855 /lisp/gnus/gnus-int.el | |
| parent | 9de3de8cbf0e63de7e11d6f2051fc3ad891c613c (diff) | |
| download | emacs-66d9ef95c0f9407d2a6d26bcd7ed84a303294b53.tar.gz emacs-66d9ef95c0f9407d2a6d26bcd7ed84a303294b53.tar.bz2 emacs-66d9ef95c0f9407d2a6d26bcd7ed84a303294b53.zip | |
Remove compat code for older Emacsen
* lisp/gnus/gnus-art.el (gnus-button-url-regexp): Remove
XEmacs compat code.
* lisp/gnus/gnus-sync.el (gnus-sync-json-alist-p): Remove
unused compat function.
(gnus-sync-json-plist-p): Ditto.
* lisp/gnus/message.el (message-default-charset): Make obsolete.
(message-info): Remove compat code.
(message-setup-fill-variables): Remove kludge needed earlier
to not overwrite `normal-auto-fill-function'.
(message-split-line): Remove compat code.
* lisp/gnus/mm-view.el (mm-display-inline-fontify): Remove
compat code.
Diffstat (limited to 'lisp/gnus/gnus-int.el')
| -rw-r--r-- | lisp/gnus/gnus-int.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 38cfa4409e0..93545ff39bc 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -777,8 +777,7 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (message-options-set-recipient) (save-restriction (message-narrow-to-head) - (let ((mail-parse-charset message-default-charset)) - (mail-encode-encoded-word-buffer))) + (mail-encode-encoded-word-buffer)) (message-encode-message-body))) (let ((gnus-command-method (or gnus-command-method (gnus-find-method-for-group group))) @@ -800,8 +799,7 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (message-options-set-recipient) (save-restriction (message-narrow-to-head) - (let ((mail-parse-charset message-default-charset)) - (mail-encode-encoded-word-buffer))) + (mail-encode-encoded-word-buffer)) (message-encode-message-body))) (let* ((func (car (gnus-group-name-to-method group))) (result (funcall (intern (format "%s-request-replace-article" func)) |