(defun gnus-shell-command-to-string (command)
"Like `shell-command-to-string' except not mingling ERROR."
(with-output-to-string
- (call-process shell-file-name nil (list standard-output nil)
+ (call-process shell-file-name nil (list standard-output nil)
nil shell-command-switch command)))
(defun gnus-shell-command-on-region (start end command)
"A simplified `shell-command-on-region'.
Output to the current buffer, replace text, and don't mingle error."
- (call-process-region start end shell-file-name t
- (list (current-buffer) nil)
+ (call-process-region start end shell-file-name t
+ (list (current-buffer) nil)
nil shell-command-switch command))
;;;###autoload
(shell-quote-argument file)))))
(defun gnus-convert-image-to-gray-x-face (file depth)
- (let* ((mapfile (make-temp-name (expand-file-name "gnus." mm-tmp-directory)))
+ (let* ((mapfile (mm-make-temp-file (expand-file-name "gnus."
+ mm-tmp-directory)))
(levels (expt 2 depth))
(step (/ 255 (1- levels)))
color-alist bits bits-list mask pixel x-faces)
(coding-system-for-read 'binary)
(coding-system-for-write 'binary)
default-enable-multibyte-characters
- start bit-array bit-arrays pixels pixel)
+ start bit-array bit-arrays pixel)
(with-temp-buffer
(dolist (face faces)
(erase-buffer)
(save-restriction
(article-narrow-to-head)
(gnus-article-goto-header "from")
- (when (bobp)
+ (when (bobp)
(insert "From: [no `from' set]\n")
(forward-char -17))
(gnus-add-image