diff options
Diffstat (limited to 'lisp/gnus/gnus-uu.el')
| -rw-r--r-- | lisp/gnus/gnus-uu.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el index 6990d8ee778..9cafc78ab89 100644 --- a/lisp/gnus/gnus-uu.el +++ b/lisp/gnus/gnus-uu.el @@ -260,9 +260,10 @@ Default is t." "Non-nil means that files will be viewed with metamail. The gnus-uu viewing functions will be ignored and gnus-uu will try to guess at a content-type based on file name suffixes. Default -it nil." +is nil." :group 'gnus-extract :type 'boolean) +(make-obsolete-variable 'gnus-uu-view-with-metamail "don't use it." "29.1") (defcustom gnus-uu-unmark-articles-not-decoded nil "If non-nil, gnus-uu will mark unsuccessfully decoded articles as unread. @@ -543,11 +544,11 @@ didn't work, and overwrite existing files. Otherwise, ask each time." "Various")))) (goto-char (point-min)) (when (re-search-forward "^Subject: ") - (delete-region (point) (point-at-eol)) + (delete-region (point) (line-end-position)) (insert subject)) (goto-char (point-min)) (when (re-search-forward "^From:") - (delete-region (point) (point-at-eol)) + (delete-region (point) (line-end-position)) (insert " " from)) (let ((message-forward-decoded-p t)) (message-forward post t)))) @@ -1762,7 +1763,7 @@ Gnus might fail to display all of it.") (unless (looking-at (concat gnus-uu-begin-string "\\|" gnus-uu-end-string)) (when (not found) - (setq length (- (point-at-eol) (point-at-bol)))) + (setq length (- (line-end-position) (line-beginning-position)))) (setq found t) (beginning-of-line) (setq beg (point)) @@ -2067,7 +2068,7 @@ If no file has been included, the user will be asked for a file." (goto-char (point-min)) (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$") nil t) - (setq header (buffer-substring (point-min) (point-at-bol))) + (setq header (buffer-substring (point-min) (line-beginning-position))) (goto-char (point-min)) (when gnus-uu-post-separate-description |