Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmbox.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
284 (nnmbox-possibly-change-newsgroup group server) 284 (nnmbox-possibly-change-newsgroup group server)
285 (nnmail-check-syntax) 285 (nnmail-check-syntax)
286 (let ((buf (current-buffer)) 286 (let ((buf (current-buffer))
287 result) 287 result)
288 (goto-char (point-min)) 288 (goto-char (point-min))
289 ;; The From line may have been quoted by movemail.
290 (when (looking-at (concat ">" message-unix-mail-delimiter))
291 (delete-char 1))
289 (if (looking-at "X-From-Line: ") 292 (if (looking-at "X-From-Line: ")
290 (replace-match "From ") 293 (replace-match "From ")
291 (insert "From nobody " (current-time-string) "\n")) 294 (insert "From nobody " (current-time-string) "\n"))
292 (and 295 (and
293 (nnmail-activate 'nnmbox) 296 (nnmail-activate 'nnmbox)
482 (write-region 1 1 nnmbox-mbox-file t 'nomesg)) 485 (write-region 1 1 nnmbox-mbox-file t 'nomesg))
483 (if (and nnmbox-mbox-buffer 486 (if (and nnmbox-mbox-buffer
484 (buffer-name nnmbox-mbox-buffer) 487 (buffer-name nnmbox-mbox-buffer)
485 (save-excursion 488 (save-excursion
486 (set-buffer nnmbox-mbox-buffer) 489 (set-buffer nnmbox-mbox-buffer)
487 (= (buffer-size) (nth 7 (file-attributes nnmbox-mbox-file))))) 490 (= (buffer-size) (nnheader-file-size nnmbox-mbox-file))))
488 () 491 ()
489 (save-excursion 492 (save-excursion
490 (let ((delim (concat "^" message-unix-mail-delimiter)) 493 (let ((delim (concat "^" message-unix-mail-delimiter))
491 (alist nnmbox-group-alist) 494 (alist nnmbox-group-alist)
492 start end number) 495 start end number)