Mercurial > emacs
comparison lisp/mh-e/mh-mime.el @ 67988:7882fc7df359
* mh-alias.el (mh-alias-grab-from-field): Remove leading * from
docstring. Does this mean something in a defun?
* mh-customize.el (bw-new-face-to-old, bw-old-face-to-new): Checkdoc
fix.
* mh-e.el (mh-inc-folder): Rename maildrop-name argument to file so it
reads better in docstring and manual. Sync docstring with manual.
* mh-init.el (mh-defface-compat): Remove trailing space (checkdoc).
* mh-alias.el (mh-alias-apropos): Sync docstring with manual.
* mh-comp.el (mh-redistribute, mh-to-field, mh-to-fcc)
(mh-insert-auto-fields, mh-send-letter, mh-yank-cur-msg)
(mh-fully-kill-draft, mh-open-line, mh-letter-complete)
(mh-letter-complete-or-space, mh-letter-confirm-address)
(mh-letter-next-header-field-or-indent)
(mh-letter-previous-header-field): Ditto.
* mh-customize.el (mh-alias-completion-ignore-case-flag)
(mh-default-folder-for-message-function, mh-mml-method-default)
(mh-signature-file-name, mh-yank-behavior, mh-show-hook)
(mh-show-mode-hook) Ditto.
* mh-e.el (mh-refile-or-write-again, mh-toggle-showing): Ditto.
* mh-funcs.el (mh-pipe-msg, mh-sort-folder, mh-undo-folder)
(mh-store-msg, mh-store-buffer): Ditto
* mh-index.el (mh-index-search, mh-index-do-search)
(mh-index-next-folder, mh-index-sequenced-messages): Ditto.
* mh-junk.el (mh-spamassassin-blacklist): Ditto.
* mh-mime.el (mh-mh-compose-external-compressed-tar)
(mh-mh-compose-external-type, mh-mh-to-mime, mh-mh-to-mime-undo)
(mh-mml-secure-message-sign, mh-mml-secure-message-encrypt)
(mh-mml-secure-message-signencrypt): Ditto
* mh-pick.el (mh-search-folder): Ditto.
* mh-seq.el (mh-widen): Ditto.
* mh-utils.el (mh-show, mh-modify): Ditto.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Tue, 03 Jan 2006 06:13:43 +0000 |
parents | fb7a11feb83e |
children | 256cc87e0619 |
comparison
equal
deleted
inserted
replaced
67987:121a9a222aab | 67988:7882fc7df359 |
---|---|
1 ;;; mh-mime.el --- MH-E support for composing MIME messages | 1 ;;; mh-mime.el --- MH-E support for composing MIME messages |
2 | 2 |
3 ;; Copyright (C) 1993, 1995, | 3 ;; Copyright (C) 1993, 1995, |
4 ;; 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. | 4 ;; 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: Bill Wohler <wohler@newt.com> | 6 ;; Author: Bill Wohler <wohler@newt.com> |
7 ;; Maintainer: Bill Wohler <wohler@newt.com> | 7 ;; Maintainer: Bill Wohler <wohler@newt.com> |
8 ;; Keywords: mail | 8 ;; Keywords: mail |
9 ;; See: mh-e.el | 9 ;; See: mh-e.el |
316 (insert "\n")) | 316 (insert "\n")) |
317 | 317 |
318 ;;;###mh-autoload | 318 ;;;###mh-autoload |
319 (defun mh-mh-compose-anon-ftp (host filename type description) | 319 (defun mh-mh-compose-anon-ftp (host filename type description) |
320 "Add tag to include anonymous ftp reference to a file. | 320 "Add tag to include anonymous ftp reference to a file. |
321 You can even have your message initiate an \"ftp\" transfer when | 321 |
322 the recipient reads the message. You are prompted for the remote | 322 You can have your message initiate an \"ftp\" transfer when the |
323 HOST and FILENAME, the media TYPE, and the content DESCRIPTION. | 323 recipient reads the message. You are prompted for the remote HOST |
324 and FILENAME, the media TYPE, and the content DESCRIPTION. | |
324 | 325 |
325 See also \\[mh-mh-to-mime]." | 326 See also \\[mh-mh-to-mime]." |
326 (interactive (list | 327 (interactive (list |
327 (read-string "Remote host: ") | 328 (read-string "Remote host: ") |
328 (read-string "Remote filename: ") | 329 (read-string "Remote filename: ") |
332 type description)) | 333 type description)) |
333 | 334 |
334 ;;;###mh-autoload | 335 ;;;###mh-autoload |
335 (defun mh-mh-compose-external-compressed-tar (host filename description) | 336 (defun mh-mh-compose-external-compressed-tar (host filename description) |
336 "Add tag to include anonymous ftp reference to a compressed tar file. | 337 "Add tag to include anonymous ftp reference to a compressed tar file. |
338 | |
337 In addition to retrieving the file via anonymous \"ftp\" as per | 339 In addition to retrieving the file via anonymous \"ftp\" as per |
338 the \\[mh-mh-compose-anon-ftp] command, the file will also be | 340 the command \\[mh-mh-compose-anon-ftp], the file will also be |
339 uncompressed and untarred. You are prompted for the remote HOST | 341 uncompressed and untarred. You are prompted for the remote HOST |
340 and FILENAME and the content DESCRIPTION. | 342 and FILENAME and the content DESCRIPTION. |
341 | 343 |
342 See also \\[mh-mh-to-mime]." | 344 See also \\[mh-mh-to-mime]." |
343 (interactive (list | 345 (interactive (list |
354 (defun mh-mh-compose-external-type (access-type host filename type | 356 (defun mh-mh-compose-external-type (access-type host filename type |
355 &optional description | 357 &optional description |
356 attributes parameters | 358 attributes parameters |
357 comment) | 359 comment) |
358 "Add tag to refer to a remote file. | 360 "Add tag to refer to a remote file. |
361 | |
359 This command is a general utility for referencing external files. | 362 This command is a general utility for referencing external files. |
360 In fact, all of the other commands that insert directives to | 363 In fact, all of the other commands that insert directives to |
361 access external files call this command. You are prompted for the | 364 access external files call this command. You are prompted for the |
362 ACCESS-TYPE, remote HOST and FILENAME, and content TYPE. If you | 365 ACCESS-TYPE, remote HOST and FILENAME, and content TYPE. If you |
363 provide a prefix argument, you are also prompted for a content | 366 provide a prefix argument, you are also prompted for a content |
433 | 436 |
434 Typically, you send a message with attachments just like any other | 437 Typically, you send a message with attachments just like any other |
435 message. However, you may take a sneak preview of the MIME encoding if | 438 message. However, you may take a sneak preview of the MIME encoding if |
436 you wish by running this command. | 439 you wish by running this command. |
437 | 440 |
438 If you wish to pass additional arguments to \"mhbuild\" (\"mhn\") to | 441 If you wish to pass additional arguments to \"mhbuild\" (\"mhn\") |
439 affect how it builds your message, use the `mh-mh-to-mime-args' | 442 to affect how it builds your message, use the option |
440 option. For example, you can build a consistency check into the | 443 `mh-mh-to-mime-args'. For example, you can build a consistency |
441 message by setting `mh-mh-to-mime-args' to \"-check\". The recipient | 444 check into the message by setting `mh-mh-to-mime-args' to |
442 of your message can then run \"mhbuild -check\" on the | 445 \"-check\". The recipient of your message can then run \"mhbuild |
443 message--\"mhbuild\" (\"mhn\") will complain if the message has been | 446 -check\" on the message--\"mhbuild\" (\"mhn\") will complain if |
444 corrupted on the way. This command only consults this option when | 447 the message has been corrupted on the way. This command only |
445 given a prefix argument EXTRA-ARGS. | 448 consults this option when given a prefix argument EXTRA-ARGS. |
446 | 449 |
447 The hook `mh-mh-to-mime-hook' is called after the message has been | 450 The hook `mh-mh-to-mime-hook' is called after the message has been |
448 formatted. | 451 formatted. |
449 | 452 |
450 The effects of this command can be undone by running | 453 The effects of this command can be undone by running |
482 (goto-char (line-end-position))))) | 485 (goto-char (line-end-position))))) |
483 | 486 |
484 ;;;###mh-autoload | 487 ;;;###mh-autoload |
485 (defun mh-mh-to-mime-undo (noconfirm) | 488 (defun mh-mh-to-mime-undo (noconfirm) |
486 "Undo effects of \\[mh-mh-to-mime]. | 489 "Undo effects of \\[mh-mh-to-mime]. |
487 Optional non-nil argument NOCONFIRM means don't ask for | 490 |
488 confirmation." | 491 It does this by reverting to a backup file. You are prompted to |
492 confirm this action, but you can avoid the confirmation by adding | |
493 a prefix argument NOCONFIRM." | |
489 (interactive "*P") | 494 (interactive "*P") |
490 (if (null buffer-file-name) | 495 (if (null buffer-file-name) |
491 (error "Buffer does not seem to be associated with any file")) | 496 (error "Buffer does not seem to be associated with any file")) |
492 (let ((backup-strings '("," "#")) | 497 (let ((backup-strings '("," "#")) |
493 backup-file) | 498 backup-file) |
652 ;;;###mh-autoload | 657 ;;;###mh-autoload |
653 (defun mh-mml-secure-message-sign (method) | 658 (defun mh-mml-secure-message-sign (method) |
654 "Add tag to sign the message. | 659 "Add tag to sign the message. |
655 | 660 |
656 A proper multipart message is created for you when you send the | 661 A proper multipart message is created for you when you send the |
657 message. Use the \\[mh-mml-unsecure-message] command to remove | 662 message. Use the command \\[mh-mml-unsecure-message] to remove |
658 this tag. Use a prefix argument METHOD to be prompted for one of | 663 this tag. Use a prefix argument METHOD to be prompted for one of |
659 the possible security methods (see `mh-mml-method-default')." | 664 the possible security methods (see `mh-mml-method-default')." |
660 (interactive (list (mh-mml-query-cryptographic-method))) | 665 (interactive (list (mh-mml-query-cryptographic-method))) |
661 (mh-secure-message method "sign" mh-identity-pgg-default-user-id)) | 666 (mh-secure-message method "sign" mh-identity-pgg-default-user-id)) |
662 | 667 |
663 ;;;###mh-autoload | 668 ;;;###mh-autoload |
664 (defun mh-mml-secure-message-encrypt (method) | 669 (defun mh-mml-secure-message-encrypt (method) |
665 "Add tag to encrypt the message. | 670 "Add tag to encrypt the message. |
666 | 671 |
667 A proper multipart message is created for you when you send the | 672 A proper multipart message is created for you when you send the |
668 message. Use the \\[mh-mml-unsecure-message] command to remove | 673 message. Use the command \\[mh-mml-unsecure-message] to remove |
669 this tag. Use a prefix argument METHOD to be prompted for one of | 674 this tag. Use a prefix argument METHOD to be prompted for one of |
670 the possible security methods (see `mh-mml-method-default')." | 675 the possible security methods (see `mh-mml-method-default')." |
671 (interactive (list (mh-mml-query-cryptographic-method))) | 676 (interactive (list (mh-mml-query-cryptographic-method))) |
672 (mh-secure-message method "encrypt" mh-identity-pgg-default-user-id)) | 677 (mh-secure-message method "encrypt" mh-identity-pgg-default-user-id)) |
673 | 678 |
674 ;;;###mh-autoload | 679 ;;;###mh-autoload |
675 (defun mh-mml-secure-message-signencrypt (method) | 680 (defun mh-mml-secure-message-signencrypt (method) |
676 "Add tag to encrypt and sign the message. | 681 "Add tag to encrypt and sign the message. |
677 | 682 |
678 A proper multipart message is created for you when you send the | 683 A proper multipart message is created for you when you send the |
679 message. Use the \\[mh-mml-unsecure-message] command to remove | 684 message. Use the command \\[mh-mml-unsecure-message] to remove |
680 this tag. Use a prefix argument METHOD to be prompted for one of | 685 this tag. Use a prefix argument METHOD to be prompted for one of |
681 the possible security methods (see `mh-mml-method-default')." | 686 the possible security methods (see `mh-mml-method-default')." |
682 (interactive (list (mh-mml-query-cryptographic-method))) | 687 (interactive (list (mh-mml-query-cryptographic-method))) |
683 (mh-secure-message method "signencrypt" mh-identity-pgg-default-user-id)) | 688 (mh-secure-message method "signencrypt" mh-identity-pgg-default-user-id)) |
684 | 689 |