diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/shr.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 88e078b066f..d1788c334bc 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el | |||
| @@ -240,11 +240,10 @@ redirects somewhere else." | |||
| 240 | (progn | 240 | (progn |
| 241 | (setq found (shr-find-fill-point)) | 241 | (setq found (shr-find-fill-point)) |
| 242 | (not (eolp)))) | 242 | (not (eolp)))) |
| 243 | (unless (prog1 | 243 | (when (eq (preceding-char) ? ) |
| 244 | found | 244 | (delete-char -1)) |
| 245 | (when (eq (preceding-char) ? ) | 245 | (insert "\n") |
| 246 | (delete-char -1)) | 246 | (unless found |
| 247 | (insert "\n")) | ||
| 248 | (put-text-property (1- (point)) (point) 'shr-break t) | 247 | (put-text-property (1- (point)) (point) 'shr-break t) |
| 249 | ;; No space is needed at the beginning of a line. | 248 | ;; No space is needed at the beginning of a line. |
| 250 | (when (eq (following-char) ? ) | 249 | (when (eq (following-char) ? ) |