diff options
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 480ebe377d7..83ba72c091f 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -1930,7 +1930,7 @@ always hide." (while (re-search-forward "^[^: \t]+:[ \t]*\n[^ \t]" nil t) (forward-line -1) (gnus-article-hide-text-type - (point-at-bol) + (line-beginning-position) (progn (end-of-line) (if (re-search-forward "^[^ \t]" nil t) @@ -2060,7 +2060,7 @@ always hide." (goto-char (point-min)) (when (re-search-forward (concat "^" header ":") nil t) (gnus-article-hide-text-type - (point-at-bol) + (line-beginning-position) (progn (end-of-line) (if (re-search-forward "^[^ \t]" nil t) @@ -2081,7 +2081,7 @@ always hide." (article-narrow-to-head) (while (not (eobp)) (cond - ((< (setq column (- (point-at-eol) (point))) + ((< (setq column (- (line-end-position) (point))) gnus-article-normalized-header-length) (end-of-line) (insert (make-string @@ -2092,7 +2092,7 @@ always hide." (progn (forward-char gnus-article-normalized-header-length) (point)) - (point-at-eol) + (line-end-position) 'invisible t)) (t ;; Do nothing. @@ -2389,7 +2389,7 @@ fill width." (end-of-line) (when (>= (current-column) width) (narrow-to-region (min (1+ (point)) (point-max)) - (point-at-bol)) + (line-beginning-position)) (let ((goback (point-marker)) (fill-column width)) (fill-paragraph nil) @@ -2446,7 +2446,7 @@ fill width." (while (and (not (bobp)) (looking-at "^[ \t]*$") (not (gnus-annotation-in-region-p - (point) (point-at-eol)))) + (point) (line-end-position)))) (forward-line -1)) (forward-line 1) (point)))))) @@ -3583,9 +3583,10 @@ possible values." 'original-date) bface (get-text-property (match-beginning 0) 'face) eface (get-text-property (match-end 0) 'face)) - (delete-region (point-at-bol) (progn - (gnus-article-forward-header) - (point))))) + (delete-region (line-beginning-position) + (progn + (gnus-article-forward-header) + (point))))) (when (and (not date) visible-date) (setq date visible-date)) @@ -4388,8 +4389,8 @@ If variable `gnus-use-long-file-name' is non-nil, it is (message-narrow-to-head) (goto-char (point-max)) (forward-line -1) - (setq bface (get-text-property (point-at-bol) 'face) - eface (get-text-property (1- (point-at-eol)) 'face)) + (setq bface (get-text-property (line-beginning-position) 'face) + eface (get-text-property (1- (line-end-position)) 'face)) (message-remove-header "X-Gnus-PGP-Verify") (if (re-search-forward "^X-PGP-Sig:" nil t) (forward-line) @@ -5925,7 +5926,7 @@ all parts." ;; Go to the displayed subpart, assuming this is ;; multipart/alternative. (setq part start - end (point-at-eol)) + end (line-end-position)) (while (and (not handle) part (< part end) @@ -6825,9 +6826,9 @@ not have a face in `gnus-article-boring-faces'." "Read article specified by message-id around point." (interactive nil gnus-article-mode) (save-excursion - (re-search-backward "[ \t]\\|^" (point-at-bol) t) - (re-search-forward "<?news:<?\\|<" (point-at-eol) t) - (if (re-search-forward "[^@ ]+@[^ \t>]+" (point-at-eol) t) + (re-search-backward "[ \t]\\|^" (line-beginning-position) t) + (re-search-forward "<?news:<?\\|<" (line-end-position) t) + (if (re-search-forward "[^@ ]+@[^ \t>]+" (line-end-position) t) (let ((msg-id (concat "<" (match-string 0) ">"))) (set-buffer gnus-summary-buffer) (gnus-summary-refer-article msg-id)) @@ -8180,7 +8181,7 @@ url is put as the `gnus-button-url' overlay property on the button." (goto-char start) (string-match "\\(?:\"\\|\\(<\\)\\)[\t ]*\\(?:url[\t ]*:[\t ]*\\)?\\'" - (buffer-substring (point-at-bol) start))) + (buffer-substring (line-beginning-position) start))) (progn (setq url (list (buffer-substring start end)) delim (if (match-beginning 1) ">" "\"")) |