comparison lisp/mail/rmail.el @ 53666:0a56d6bd40da

(rmail-convert-to-babyl-format): Avoid deleting trailing white space and ensure a final newline.

53665:c1b91f41e667

		 (if base64-header-field-end
		     (save-excursion
		       (when
			   (condition-case nil
			       (progn
				 (base64-decode-region (1+ header-end) (point))
				 t)
			     (error nil))
			 (goto-char header-end)
			 (while (search-forward "\r\n" (point-max) t)
			   (replace-match "\n"))

		 (save-restriction
		   (narrow-to-region start (point))
		   (goto-char (point-min))
		   (while (search-forward "\n\^_" nil t); single char
		     (replace-match "\n^_")))); 2 chars: "^" and "_"
	       (insert ?\^_)
	       (setq last-coding-system-used nil)
	       (or rmail-enable-mime
		   (not rmail-enable-multibyte)
		   (let ((mime-charset

53666:0a56d6bd40da

		 (if base64-header-field-end
		     (save-excursion
		       (when
			   (condition-case nil
			       (progn
				 (base64-decode-region
				  (1+ header-end)
				  (save-excursion
				    ;; Prevent base64-decode-region
				    ;; from removing newline characters.
				    (skip-chars-backward "\n\t ")
				    (point)))
				 t)
			     (error nil))
			 (goto-char header-end)
			 (while (search-forward "\r\n" (point-max) t)
			   (replace-match "\n"))

		 (save-restriction
		   (narrow-to-region start (point))
		   (goto-char (point-min))
		   (while (search-forward "\n\^_" nil t); single char
		     (replace-match "\n^_")))); 2 chars: "^" and "_"
	       (or (bolp) (newline)) ; in case we lost the final newline.
	       (insert ?\^_)
	       (setq last-coding-system-used nil)
	       (or rmail-enable-mime
		   (not rmail-enable-multibyte)
		   (let ((mime-charset