emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: patch to mailclient + sendmail


From: Simon Josefsson
Subject: Re: patch to mailclient + sendmail
Date: Sun, 21 May 2006 17:31:49 +0200
User-agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (gnu/linux)

David Reitter <address@hidden> writes:

> This patch to mailclient.el will print an informative message and
> improve the short message body that is included by default on Windows
> systems.

Is it really reliable to assume messages are shown to the user?  What
about displaying the information and making it a "Continue (y/n)"
question?

>
>
>
> *** lisp/mail/mailclient.el   22 Feb 2006 19:15:36 +0000      1.4
> --- lisp/mail/mailclient.el   21 Apr 2006 17:11:03 +0100      
> ***************
> *** 162,172 ****
>                   (progn
>                     (clipboard-kill-ring-save
>                      (+ 1 delimline) (point-max))
> !                   (concat
> !                    "*** E-Mail body has been placed on clipboard, "
> !                    "please paste them here! ***"))
>                 ;; else
> !               (buffer-substring (+ 1 delimline) (point-max))))))))))))
>
>   (provide 'mailclient)
>
> --- 162,173 ----
>                   (progn
>                     (clipboard-kill-ring-save
>                      (+ 1 delimline) (point-max))
> ! "*** E-Mail body has been placed on clipboard, please paste it here!
> ! Customize `mailclient-place-body-on-clipboard-flag' to avoid this
> step. ***")
>                 ;; else
> !               (buffer-substring (+ 1 delimline) (point-max)))))))
> !         (message
> !          "Message will be handled by system's default mail client."))))))
>
>   (provide 'mailclient)
>
> *** lisp/mail/sendmail.el     21 Apr 2006 17:12:35 +0100      1.302
> --- lisp/mail/sendmail.el     21 Apr 2006 17:12:41 +0100      
> ***************
> *** 879,885 ****
>                    (cdr (car mail-send-actions)))
>           (error))
>         (setq mail-send-actions (cdr mail-send-actions)))
> !     (message "Sending...done")
>       ;; If buffer has no file, mark it as unmodified and delete
> auto-
> save.
>       (if (not buffer-file-name)
>           (progn
> --- 879,887 ----
>                    (cdr (car mail-send-actions)))
>           (error))
>         (setq mail-send-actions (cdr mail-send-actions)))
> !     (if (equal (current-message) "Sending...")
> !         ;; allow send-mail-function to show its own message
> !         (message "Sending...done"))
>       ;; If buffer has no file, mark it as unmodified and delete
> auto-
> save.
>       (if (not buffer-file-name)
>           (progn




reply via email to

[Prev in Thread] Current Thread [Next in Thread]