Mercurial > emacs
annotate lisp/mail/mailpost.el @ 110682:ba6a1c230532
gnus-html.el (gnus-html-prefetch-images): Adjust regexp to avoid regexp backtrace overflows.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Fri, 01 Oct 2010 13:33:03 +0000 |
parents | 378d4ce3aada |
children | ef719132ddfa |
rev | line source |
---|---|
791
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
663
diff
changeset
|
1 ;;; mailpost.el --- RMAIL coupler to /usr/uci/post mailer |
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
663
diff
changeset
|
2 |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
3 ;; This is in the public domain |
105830
378d4ce3aada
Reword header comment to prevent copyright.el wanting to update years.
Glenn Morris <rgm@gnu.org>
parents:
105829
diff
changeset
|
4 ;; since Delp distributed it in 1986 without a copyright notice. |
840
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
5 |
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
29886
diff
changeset
|
6 ;; This file is part of GNU Emacs. |
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
29886
diff
changeset
|
7 |
791
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
663
diff
changeset
|
8 ;; Author: Gary Delp <delp@huey.Udel.Edu> |
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
663
diff
changeset
|
9 ;; Maintainer: FSF |
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
663
diff
changeset
|
10 ;; Created: 13 Jan 1986 |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
791
diff
changeset
|
11 ;; Keywords: mail |
791
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
663
diff
changeset
|
12 |
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
663
diff
changeset
|
13 ;;; Commentary: |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
222
diff
changeset
|
14 |
4 | 15 ;; Yet another mail interface. this for the rmail system to provide |
16 ;; the missing sendmail interface on systems without /usr/lib/sendmail, | |
17 ;; but with /usr/uci/post. | |
791
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
663
diff
changeset
|
18 |
203c23c9f22c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
663
diff
changeset
|
19 ;;; Code: |
4 | 20 |
923 | 21 (require 'mailalias) |
22 (require 'sendmail) | |
23 | |
4 | 24 ;; (setq send-mail-function 'post-mail-send-it) |
25 | |
26 (defun post-mail-send-it () | |
222 | 27 "The MH -post interface for `rmail-mail' to call. |
28 To use it, include \"(setq send-mail-function 'post-mail-send-it)\" in | |
29 site-init." | |
4 | 30 (let ((errbuf (if mail-interactive |
31 (generate-new-buffer " post-mail errors") | |
32 0)) | |
29886
3baeb77c0e39
(post-mail-send-it): Make sure file has
Gerd Moellmann <gerd@gnu.org>
parents:
26039
diff
changeset
|
33 temfile |
4 | 34 (tembuf (generate-new-buffer " post-mail temp")) |
35 (case-fold-search nil) | |
36 delimline | |
37 (mailbuf (current-buffer))) | |
38 (unwind-protect | |
105829
328150f0cf76
* url-util.el (url-insert-entities-in-string):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
39 (with-current-buffer tembuf |
4 | 40 (erase-buffer) |
41 (insert-buffer-substring mailbuf) | |
42 (goto-char (point-max)) | |
43 ;; require one newline at the end. | |
44 (or (= (preceding-char) ?\n) | |
45 (insert ?\n)) | |
46 ;; Change header-delimiter to be what post-mail expects. | |
21921
ea04bf51647c
(post-mail-send-it): Use mail-sendmail-undelimit-header.
Richard M. Stallman <rms@gnu.org>
parents:
18383
diff
changeset
|
47 (mail-sendmail-undelimit-header) |
4 | 48 (setq delimline (point-marker)) |
49 (if mail-aliases | |
50 (expand-mail-aliases (point-min) delimline)) | |
51 (goto-char (point-min)) | |
52 ;; ignore any blank lines in the header | |
53 (while (and (re-search-forward "\n\n\n*" delimline t) | |
54 (< (point) delimline)) | |
55 (replace-match "\n")) | |
56 ;; Find and handle any FCC fields. | |
57 (let ((case-fold-search t)) | |
58 (goto-char (point-min)) | |
59 (if (re-search-forward "^FCC:" delimline t) | |
60 (mail-do-fcc delimline)) | |
61 ;; If there is a From and no Sender, put it a Sender. | |
62 (goto-char (point-min)) | |
63 (and (re-search-forward "^From:" delimline t) | |
64 (not (save-excursion | |
65 (goto-char (point-min)) | |
66 (re-search-forward "^Sender:" delimline t))) | |
67 (progn | |
68 (forward-line 1) | |
69 (insert "Sender: " (user-login-name) "\n"))) | |
70 ;; don't send out a blank subject line | |
71 (goto-char (point-min)) | |
72 (if (re-search-forward "^Subject:[ \t]*\n" delimline t) | |
73 (replace-match "")) | |
74 (if mail-interactive | |
105829
328150f0cf76
* url-util.el (url-insert-entities-in-string):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
75 (with-current-buffer errbuf |
4 | 76 (erase-buffer)))) |
29886
3baeb77c0e39
(post-mail-send-it): Make sure file has
Gerd Moellmann <gerd@gnu.org>
parents:
26039
diff
changeset
|
77 (let ((m (default-file-modes))) |
3baeb77c0e39
(post-mail-send-it): Make sure file has
Gerd Moellmann <gerd@gnu.org>
parents:
26039
diff
changeset
|
78 (unwind-protect |
3baeb77c0e39
(post-mail-send-it): Make sure file has
Gerd Moellmann <gerd@gnu.org>
parents:
26039
diff
changeset
|
79 (progn |
3baeb77c0e39
(post-mail-send-it): Make sure file has
Gerd Moellmann <gerd@gnu.org>
parents:
26039
diff
changeset
|
80 (set-default-file-modes 384) |
3baeb77c0e39
(post-mail-send-it): Make sure file has
Gerd Moellmann <gerd@gnu.org>
parents:
26039
diff
changeset
|
81 (setq temfile (make-temp-file ",rpost"))) |
3baeb77c0e39
(post-mail-send-it): Make sure file has
Gerd Moellmann <gerd@gnu.org>
parents:
26039
diff
changeset
|
82 (set-default-file-modes m))) |
4 | 83 (apply 'call-process |
84 (append (list (if (boundp 'post-mail-program) | |
85 post-mail-program | |
86 "/usr/uci/lib/mh/post") | |
87 nil errbuf nil | |
88 "-nofilter" "-msgid") | |
89 (if mail-interactive '("-watch") '("-nowatch")) | |
90 (list temfile))) | |
91 (if mail-interactive | |
105829
328150f0cf76
* url-util.el (url-insert-entities-in-string):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
92 (with-current-buffer errbuf |
4 | 93 (goto-char (point-min)) |
94 (while (re-search-forward "\n\n* *" nil t) | |
95 (replace-match "; ")) | |
96 (if (not (zerop (buffer-size))) | |
97 (error "Sending...failed to %s" | |
98 (buffer-substring (point-min) (point-max))))))) | |
99 (kill-buffer tembuf) | |
100 (if (bufferp errbuf) | |
101 (switch-to-buffer errbuf))))) | |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
222
diff
changeset
|
102 |
18383 | 103 (provide 'mailpost) |
104 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
105 ;; arch-tag: 1f8ca085-60a6-4eac-8efb-69ffec2fa124 |
659
505130d1ddf8
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
222
diff
changeset
|
106 ;;; mailpost.el ends here |