[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-msg.el |
Date: |
Mon, 08 Nov 2004 23:44:16 -0500 |
Index: emacs/lisp/gnus/gnus-msg.el
diff -c emacs/lisp/gnus/gnus-msg.el:1.27 emacs/lisp/gnus/gnus-msg.el:1.28
*** emacs/lisp/gnus/gnus-msg.el:1.27 Mon Nov 1 23:06:33 2004
--- emacs/lisp/gnus/gnus-msg.el Tue Nov 9 04:38:27 2004
***************
*** 1871,1881 ****
(when (and filep v)
(setq v (with-temp-buffer
(insert-file-contents v)
! (goto-char (point-max))
! (skip-chars-backward "\n")
! (delete-region (+ (point) (if (bolp) 0 1))
! (point-max))
! (buffer-string))))
(setq results (delq (assoc element results) results))
(push (cons element v) results))))
;; Now we have all the styles, so we insert them.
--- 1871,1883 ----
(when (and filep v)
(setq v (with-temp-buffer
(insert-file-contents v)
! (buffer-substring
! (point-min)
! (progn
! (goto-char (point-max))
! (if (zerop (skip-chars-backward "\n"))
! (point)
! (1+ (point))))))))
(setq results (delq (assoc element results) results))
(push (cons element v) results))))
;; Now we have all the styles, so we insert them.