Mercurial > emacs
annotate lisp/mail/mailpost.el @ 105829:328150f0cf76
* url-util.el (url-insert-entities-in-string):
* url-nfs.el (url-nfs-unescape):
* url-ldap.el (url-ldap):
* url-imap.el (url-imap):
* url-cid.el (url-cid-gnus, url-cid): Use with-current-buffer.
* erc.el (erc-display-line-1, erc-process-away):
* erc-truncate.el (erc-truncate-buffer-to-size):
Use with-current-buffer.
* term/ns-win.el (ns-scroll-bar-move, ns-face-at-pos):
* play/mpuz.el (mpuz-create-buffer):
* play/landmark.el (lm-prompt-for-move, lm-print-wts, lm-print-smell)
(lm-print-y,s,noise, lm-print-w0, lm-init):
* play/gomoku.el (gomoku-prompt-for-move):
* play/fortune.el (fortune-in-buffer):
* play/dissociate.el (dissociated-press):
* play/decipher.el (decipher-adjacency-list, decipher-display-regexp)
(decipher-analyze-buffer, decipher-stats-buffer,decipher-stats-buffer):
* mail/supercite.el (sc-eref-show):
* mail/smtpmail.el (smtpmail-send-it):
* mail/rmailsum.el (rmail-summary-next-labeled-message)
(rmail-summary-previous-labeled-message, rmail-summary-wipe)
(rmail-summary-undelete-many, rmail-summary-rmail-update)
(rmail-summary-goto-msg, rmail-summary-expunge)
(rmail-summary-get-new-mail, rmail-summary-search-backward)
(rmail-summary-add-label, rmail-summary-output-menu)
(rmail-summary-output-body):
* mail/rfc822.el (rfc822-addresses):
* mail/reporter.el (reporter-dump-variable, reporter-dump-state):
* mail/mailpost.el (post-mail-send-it):
* mail/hashcash.el (hashcash-generate-payment):
* mail/feedmail.el (feedmail-run-the-queue)
(feedmail-queue-send-edit-prompt-help-first)
(feedmail-send-it-immediately, feedmail-give-it-to-buffer-eater)
(feedmail-deduce-address-list):
* eshell/esh-ext.el (eshell-remote-command):
* eshell/em-unix.el (eshell-occur-mode-mouse-goto):
* emulation/viper-util.el (viper-glob-unix-files, viper-save-setting)
(viper-wildcard-to-regexp, viper-glob-mswindows-files)
(viper-save-string-in-file, viper-valid-marker):
* emulation/viper-keym.el (viper-toggle-key):
* emulation/viper-ex.el (ex-expand-filsyms, viper-get-ex-file)
(ex-edit, ex-global, ex-mark, ex-next-related-buffer, ex-quit)
(ex-get-inline-cmd-args, ex-tag, ex-command, ex-compile):
* emulation/viper-cmd.el (viper-exec-form-in-vi)
(viper-exec-form-in-emacs, viper-brac-function):
* emulation/viper.el (viper-delocalize-var):
* emulation/vip.el (vip-mode, vip-get-ex-token, vip-ex, vip-get-ex-pat)
(vip-get-ex-command, vip-get-ex-opt-gc, vip-get-ex-buffer)
(vip-get-ex-count, vip-get-ex-file, ex-edit, ex-global, ex-mark)
(ex-map, ex-unmap, ex-quit, ex-read, ex-tag, ex-command):
* emulation/vi.el (vi-switch-mode, vi-ex-cmd):
* emulation/edt.el (edt-electric-helpify):
* emulation/cua-rect.el (cua--rectangle-aux-replace):
* emulation/cua-gmrk.el (cua--insert-at-global-mark)
(cua--delete-at-global-mark, cua--copy-rectangle-to-global-mark)
(cua-indent-to-global-mark-column):
* calendar/diary-lib.el (calendar-mark-1):
* calendar/cal-hebrew.el (calendar-hebrew-mark-date-pattern):
Use with-current-buffer.
* emulation/viper.el (viper-delocalize-var): Use dolist.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 03 Nov 2009 02:04:29 +0000 |
parents | 1e3a407766b9 |
children | 378d4ce3aada |
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 |
113281b361ec
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
4 ;; since Delp distributed it without a copyright notice in 1986. |
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 |