Commit fc3c34a8 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(rmail-enable-decoding-message): Deleted.

(rmail-revert): Bind enable-multibyte-characters to nil before
calling rmail-convert-file.
(rmail-convert-to-babyl-format): If enable-multibyte-characters is
nil, do not convert code.
parent f3203589
...@@ -392,14 +392,6 @@ by substituting the new message number into the existing list.") ...@@ -392,14 +392,6 @@ by substituting the new message number into the existing list.")
This is set to nil by default.") This is set to nil by default.")
;;;###autoload
(defvar rmail-enable-decoding-message nil
"*If non-nil, RMAIL decode character code of incomming mails automatically.
The default value is nil.
Regardless of the value of this variable, MIME messages are decoded
if rmail-enable-mime is non-nil.")
;;;###autoload ;;;###autoload
(defcustom rmail-enable-mime nil (defcustom rmail-enable-mime nil
"*If non-nil, RMAIL uses MIME feature. "*If non-nil, RMAIL uses MIME feature.
...@@ -898,7 +890,7 @@ Instead, these commands are available: ...@@ -898,7 +890,7 @@ Instead, these commands are available:
;; But, we don't have to convert coding system because backup ;; But, we don't have to convert coding system because backup
;; files should have been saved by Emacs' internal format. ;; files should have been saved by Emacs' internal format.
(let ((rmail-file-coding-system nil) (let ((rmail-file-coding-system nil)
(rmail-enable-decoding-message nil)) (enable-multibyte-characters nil))
(rmail-convert-file) (rmail-convert-file)
(goto-char (point-max)) (goto-char (point-max))
(rmail-mode))))) (rmail-mode)))))
...@@ -1402,7 +1394,7 @@ Optional DEFAULT is password to start with." ...@@ -1402,7 +1394,7 @@ Optional DEFAULT is password to start with."
(while (search-forward "\n\^_" nil t); single char "\^_" (while (search-forward "\n\^_" nil t); single char "\^_"
(replace-match "\n^_")))); 2 chars: "^" and "_" (replace-match "\n^_")))); 2 chars: "^" and "_"
(or rmail-enable-mime (or rmail-enable-mime
(not rmail-enable-decoding-message) (not enable-multibyte-characters)
(decode-coding-region start (point) 'undecided)) (decode-coding-region start (point) 'undecided))
(narrow-to-region (point) (point-max)) (narrow-to-region (point) (point-max))
(setq count (1+ count))) (setq count (1+ count)))
...@@ -1465,7 +1457,7 @@ Optional DEFAULT is password to start with." ...@@ -1465,7 +1457,7 @@ Optional DEFAULT is password to start with."
(replace-match "\n^_")))); 2 chars: "^" and "_" (replace-match "\n^_")))); 2 chars: "^" and "_"
(insert ?\^_) (insert ?\^_)
(or rmail-enable-mime (or rmail-enable-mime
(not rmail-enable-decoding-message) (not enable-multibyte-characters)
(decode-coding-region start (point) 'undecided)) (decode-coding-region start (point) 'undecided))
(narrow-to-region (point) (point-max))) (narrow-to-region (point) (point-max)))
;; ;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment