/[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.25 by miles, Thu Oct 7 05:53:40 2004 UTC revision 1.26 by miles, Mon Nov 1 10:41:03 2004 UTC
# Line 1871  this is a reply." Line 1871  this is a reply."
1871                (setq v (with-temp-buffer                (setq v (with-temp-buffer
1872                          (insert-file-contents v)                          (insert-file-contents v)
1873                          (goto-char (point-max))                          (goto-char (point-max))
1874                          (while (bolp)                          (skip-chars-backward "\n")
1875                            (delete-char -1))                          (delete-region (+ (point) (if (bolp) 0 1))
1876                                           (point-max))
1877                          (buffer-string))))                          (buffer-string))))
1878              (setq results (delq (assoc element results) results))              (setq results (delq (assoc element results) results))
1879              (push (cons element v) results))))              (push (cons element v) results))))

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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