/[emacs]/emacs/lisp/mail/smtpmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/smtpmail.el

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

revision 1.54 by lektu, Thu May 8 22:13:05 2003 UTC revision 1.55 by lektu, Fri May 9 22:48:10 2003 UTC
# Line 404  This is relative to `smtpmail-queue-dir' Line 404  This is relative to `smtpmail-queue-dir'
404              (error "Sending failed; no recipients")))              (error "Sending failed; no recipients")))
405          (delete-file file-msg)          (delete-file file-msg)
406          (delete-file (concat file-msg ".el"))          (delete-file (concat file-msg ".el"))
407          (delete-region (point-at-bol) (progn (forward-line 1) (point))))          (delete-region (point-at-bol) (point-at-bol 2)))
408        (write-region (point-min) (point-max) smtpmail-queue-index))))        (write-region (point-min) (point-max) smtpmail-queue-index))))
409    
410  ;(defun smtpmail-via-smtp (host,port,sender,destination,smtpmail-text-buffer)  ;(defun smtpmail-via-smtp (host,port,sender,destination,smtpmail-text-buffer)

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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