Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-util.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 8fc7fe29b841
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
775 (error "Output file does not exist"))) 775 (error "Output file does not exist")))
776 (set-buffer tmpbuf) 776 (set-buffer tmpbuf)
777 (erase-buffer) 777 (erase-buffer)
778 (insert-buffer-substring artbuf) 778 (insert-buffer-substring artbuf)
779 (goto-char (point-min)) 779 (goto-char (point-min))
780 (unless (looking-at "From ") 780 (if (looking-at "From ")
781 (forward-line 1)
781 (insert "From nobody " (current-time-string) "\n")) 782 (insert "From nobody " (current-time-string) "\n"))
783 (let (case-fold-search)
784 (while (re-search-forward "^From " nil t)
785 (beginning-of-line)
786 (insert ">")))
782 ;; Decide whether to append to a file or to an Emacs buffer. 787 ;; Decide whether to append to a file or to an Emacs buffer.
783 (let ((outbuf (get-file-buffer filename))) 788 (let ((outbuf (get-file-buffer filename)))
784 (if (not outbuf) 789 (if (not outbuf)
785 (let ((buffer-read-only nil)) 790 (let ((buffer-read-only nil))
786 (save-excursion 791 (save-excursion