diff options
| author | Katsumi Yamaoka | 2010-11-11 04:01:12 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2010-11-11 04:01:12 +0000 |
| commit | fe98a42fce0f0c8faf7635486264b9b1b016ee90 (patch) | |
| tree | dc9cb486f4c5dddf2484291762c4f8500e675c0a /lisp | |
| parent | b3e22bd43b070132e263934755ea21081f9fd5e9 (diff) | |
| download | emacs-fe98a42fce0f0c8faf7635486264b9b1b016ee90.tar.gz emacs-fe98a42fce0f0c8faf7635486264b9b1b016ee90.zip | |
shr.el (shr-insert): Fix last change.
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) ? ) |