/[emacs]/emacs/lisp/gnus/gnus-msg.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-msg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by miles, Mon Nov 1 23:06:33 2004 UTC revision 1.28 by miles, Tue Nov 9 04:38:27 2004 UTC
# Line 1871  this is a reply." Line 1871  this is a reply."
1871              (when (and filep v)              (when (and filep v)
1872                (setq v (with-temp-buffer                (setq v (with-temp-buffer
1873                          (insert-file-contents v)                          (insert-file-contents v)
1874                          (goto-char (point-max))                          (buffer-substring
1875                          (skip-chars-backward "\n")                           (point-min)
1876                          (delete-region (+ (point) (if (bolp) 0 1))                           (progn
1877                                         (point-max))                             (goto-char (point-max))
1878                          (buffer-string))))                             (if (zerop (skip-chars-backward "\n"))
1879                                   (point)
1880                                 (1+ (point))))))))
1881              (setq results (delq (assoc element results) results))              (setq results (delq (assoc element results) results))
1882              (push (cons element v) results))))              (push (cons element v) results))))
1883        ;; Now we have all the styles, so we insert them.        ;; Now we have all the styles, so we insert them.

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26