Hi!
To show application/msword attachments inline in gnus I use antiword
and the code snippet below in init.el.
I also would like to use unrtf to do the same for text/rtf
attachments. But an adaptation of the snippet to text/rtf with unrtf
doesn't work. (I get the "usage" massage from unrtf.) If the code
would work, I probably would get HTML as output from unrtf, as this is
the default. So I still would have the problem of how to pass the
option "--text" to unrtf.
Any suggestion how to correct the code to make unrtf work and pass the
"--text" option? Or how show rtf attachments inline in some other way?
Thanks a lot in advance!
Andreas Goesele
Code adapted to text/rtf:
(defun mm-inline-rtf (handle)
(let (text)
(with-temp-buffer
(mm-insert-part handle)
(call-process-region (point-min) (point-max) "unrtf" t t nil "-")
(setq text (buffer-string)))
(mm-insert-inline handle text)))
(add-hook 'gnus-startup-hook (function (lambda () (add-to-list
'mm-inlined-types \
"text/rtf"))))
(add-hook 'gnus-startup-hook (function (lambda () (add-to-list
'mm-inline-media-t\
ests '("text/rtf" mm-inline-rtf identity)))))
(add-hook 'gnus-startup-hook (function (lambda () (add-to-list
'mm-inlined-types \
"application/octet-stream"))))
(add-hook 'gnus-startup-hook (function (lambda () (add-to-list
'mm-inline-media-t\
ests
'("application/octet-stream" mm-inline-rtf
(lambda (handle)
(let ((name (mail-content-type-get (mm-handle-disposition
handle\
) 'filename)))
(and name (equal ".rtf" (substring name -4 nil)))
)))))))
Original code for application/msword:
(defun mm-inline-msword (handle)
(let (text)
(with-temp-buffer
(mm-insert-part handle)
(call-process-region (point-min) (point-max) "antiword" t t nil "-")
(setq text (buffer-string)))
(mm-insert-inline handle text)))
(add-hook 'gnus-startup-hook (function (lambda () (add-to-list
'mm-inlined-types \
"application/msword"))))
(add-hook 'gnus-startup-hook (function (lambda () (add-to-list
'mm-inline-media-t\
ests '("application/msword" mm-inline-msword identity)))))
(add-hook 'gnus-startup-hook (function (lambda () (add-to-list
'mm-inlined-types \
"application/octet-stream"))))
(add-hook 'gnus-startup-hook (function (lambda () (add-to-list
'mm-inline-media-t\
ests
'("application/octet-stream" mm-inline-msword
(lambda (handle)
(let ((name (mail-content-type-get (mm-handle-disposition
handle\
) 'filename)))
(and name (equal ".doc" (substring name -4 nil)))
)))))))
_______________________________________________
info-gnus-english mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/info-gnus-english
