diff options
Diffstat (limited to 'lisp/mail/rfc2047.el')
| -rw-r--r-- | lisp/mail/rfc2047.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/mail/rfc2047.el b/lisp/mail/rfc2047.el index 67874d508b1..abb95a63f16 100644 --- a/lisp/mail/rfc2047.el +++ b/lisp/mail/rfc2047.el @@ -175,7 +175,7 @@ This is either `base64' or `quoted-printable'." (progn (forward-line 1) (if (re-search-forward "^[^ \n\t]" nil t) - (point-at-bol) + (line-beginning-position) (point-max)))) (goto-char (point-min))) @@ -681,14 +681,14 @@ Point moves to the end of the region." (goto-char b) (setq b (point-marker) e (set-marker (make-marker) e)) - (rfc2047-fold-region (point-at-bol) b) + (rfc2047-fold-region (line-beginning-position) b) (goto-char b) (skip-chars-backward "^ \t\n") (unless (= 0 (skip-chars-backward " \t")) ;; `crest' may contain whitespace and an open parenthesis. (setq crest (buffer-substring-no-properties (point) b))) (setq eword (rfc2047-encode-1 - (- b (point-at-bol)) + (- b (line-beginning-position)) (replace-regexp-in-string "\n\\([ \t]?\\)" "\\1" (buffer-substring-no-properties b e)) @@ -824,18 +824,18 @@ Return the new end point." (goto-char (point-min)) (let ((bol (save-restriction (widen) - (point-at-bol))) - (eol (point-at-eol))) + (line-beginning-position))) + (eol (line-end-position))) (forward-line 1) (while (not (eobp)) (if (and (looking-at "[ \t]") - (< (- (point-at-eol) bol) 76)) + (< (- (line-end-position) bol) 76)) (delete-region eol (progn (goto-char eol) (skip-chars-forward "\r\n") (point))) - (setq bol (point-at-bol))) - (setq eol (point-at-eol)) + (setq bol (line-beginning-position))) + (setq eol (line-end-position)) (forward-line 1))))) (defun rfc2047-b-encode-string (string) |