User: simon Date: 05/10/26 09:53:21 Modified: packages/xemacs-packages/mail-lib smtpmail.el ChangeLog Log: * smtpmail.el (smtpmail-send-queued-mail): Code cleanup, tiny patch from Hrvoje Niksic <hniksic(a)xemacs.org&gt;. Revision Changes Path 1.23 +3 -3 XEmacs/packages/xemacs-packages/mail-lib/smtpmail.el Index: smtpmail.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mail-lib/smtpmail.el,v retrieving revision 1.22 retrieving revision 1.23 diff -u -p -r1.22 -r1.23 --- smtpmail.el 2004/04/09 13:36:14 1.22 +++ smtpmail.el 2005/10/26 07:53:20 1.23 ＠＠ -1,6 +1,6 ＠＠ ;;; smtpmail.el --- simple SMTP protocol (RFC 821) for sending mail -;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004 +;; Copyright (C) 1995, 1996, 2001, 2002, 2003, 2004, 2005 ;; Free Software Foundation, Inc. ;; Author: Tomoji Kagatani <kagatani(a)rbc.ncl.omron.co.jp&gt; ＠＠ -391,7 +391,7 ＠＠ This is relative to `smtpmail-queue-dir' ;;; mail, send it, etc... (let ((file-msg "")) (insert-file-contents smtpmail-queue-index) - (beginning-of-buffer) + (goto-char (point-min)) (while (not (eobp)) (setq file-msg (buffer-substring (point) (point-at-eol))) ;; XEmacs (load file-msg) ＠＠ -408,7 +408,7 ＠＠ This is relative to `smtpmail-queue-dir' (error "Sending failed; no recipients"))) (delete-file file-msg) (delete-file (concat file-msg ".el")) - (kill-line 1)) + (delete-region (point) (save-excursion (forward-line 1) (point)))) (write-region (point-min) (point-max) smtpmail-queue-index)))) ;(defun smtpmail-via-smtp (host,port,sender,destination,smtpmail-text-buffer) 1.162 +5 -0 XEmacs/packages/xemacs-packages/mail-lib/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mail-lib/ChangeLog,v retrieving revision 1.161 retrieving revision 1.162 diff -u -p -r1.161 -r1.162 --- ChangeLog 2005/09/26 06:16:32 1.161 +++ ChangeLog 2005/10/26 07:53:21 1.162 ＠＠ -1,3 +1,8 ＠＠ +2005-10-26 Simon Josefsson <jas(a)extundo.com&gt; + + * smtpmail.el (smtpmail-send-queued-mail): Code cleanup, tiny + patch from Hrvoje Niksic <hniksic(a)xemacs.org&gt;. + 2005-09-26 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 1.74 released.