Mercurial > emacs
comparison lisp/gnus/message.el @ 112389:75fb060ecbc3
Don't mess with *temp*.
* lisp/obsolete/spell.el: Move from textmodes/spell.el.
(spell-string):
* lisp/term.el (term-read-input-ring):
* lisp/startup.el (display-startup-echo-area-message):
* lisp/progmodes/antlr-mode.el (antlr-directory-dependencies):
* lisp/gnus/message.el (message-mailer-swallows-blank-line):
* lisp/comint.el (comint-read-input-ring): Use with-temp-buffer.
* lisp/international/mule.el (ctext-pre-write-conversion):
Don't hardcode point-min==1.
* lisp/gnus/mm-util.el (mm-find-buffer-file-coding-system): Don't forget to
kill the temp buffer.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 20 Jan 2011 17:36:12 -0500 |
parents | cc0887b67703 |
children | 27320025ed54 |
comparison
equal
deleted
inserted
replaced
112388:e5e8faa33346 | 112389:75fb060ecbc3 |
---|---|
1182 ;; options -t, and -v if not interactive. | 1182 ;; options -t, and -v if not interactive. |
1183 (defcustom message-mailer-swallows-blank-line | 1183 (defcustom message-mailer-swallows-blank-line |
1184 (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" | 1184 (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" |
1185 system-configuration) | 1185 system-configuration) |
1186 (file-readable-p "/etc/sendmail.cf") | 1186 (file-readable-p "/etc/sendmail.cf") |
1187 (let ((buffer (get-buffer-create " *temp*"))) | 1187 (with-temp-buffer |
1188 (unwind-protect | 1188 (insert-file-contents "/etc/sendmail.cf") |
1189 (with-current-buffer buffer | 1189 (goto-char (point-min)) |
1190 (insert-file-contents "/etc/sendmail.cf") | 1190 (let ((case-fold-search nil)) |
1191 (goto-char (point-min)) | 1191 (re-search-forward "^OR\\>" nil t)))) |
1192 (let ((case-fold-search nil)) | |
1193 (re-search-forward "^OR\\>" nil t))) | |
1194 (kill-buffer buffer)))) | |
1195 ;; According to RFC822, "The field-name must be composed of printable | 1192 ;; According to RFC822, "The field-name must be composed of printable |
1196 ;; ASCII characters (i. e., characters that have decimal values between | 1193 ;; ASCII characters (i. e., characters that have decimal values between |
1197 ;; 33 and 126, except colon)", i. e., any chars except ctl chars, | 1194 ;; 33 and 126, except colon)", i. e., any chars except ctl chars, |
1198 ;; space, or colon. | 1195 ;; space, or colon. |
1199 '(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:")) | 1196 '(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:")) |