diff options
| author | Lars Ingebrigtsen | 2018-04-17 20:09:28 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2018-04-17 20:09:28 +0200 |
| commit | 01a32a0f97134aca41df6895d23bcfcc51916b21 (patch) | |
| tree | 3e8ec95e458438d9fb5be900bc6ba6718c69f449 | |
| parent | c90984250b31fa0d33064e85c3a243e6018f9592 (diff) | |
| download | emacs-01a32a0f97134aca41df6895d23bcfcc51916b21.tar.gz emacs-01a32a0f97134aca41df6895d23bcfcc51916b21.zip | |
(gnus-summary-select-article-buffer): Further point placing tweak
* lisp/gnus/gnus-sum.el (gnus-summary-select-article-buffer):
Further tweak for the previous point-placing tweak.
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 596afd15525..4c54ac59d67 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -7073,7 +7073,7 @@ buffer." | |||
| 7073 | (select-window (get-buffer-window gnus-article-buffer)) | 7073 | (select-window (get-buffer-window gnus-article-buffer)) |
| 7074 | ;; If we've just selected the message, place point at the start of | 7074 | ;; If we've just selected the message, place point at the start of |
| 7075 | ;; the body because that's probably where we want to be. | 7075 | ;; the body because that's probably where we want to be. |
| 7076 | (if (not (bobp)) | 7076 | (if (not (= point (point-min))) |
| 7077 | (goto-char point) | 7077 | (goto-char point) |
| 7078 | (article-goto-body) | 7078 | (article-goto-body) |
| 7079 | (forward-char -1))))) | 7079 | (forward-char -1))))) |