From 66d9ef95c0f9407d2a6d26bcd7ed84a303294b53 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 14 Feb 2016 17:07:48 +1100 Subject: 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. --- lisp/gnus/gnus-int.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'lisp/gnus/gnus-int.el') 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)) -- cgit v1.2.3