diff options
| author | Phillip Lord | 2015-12-16 22:35:47 +0000 |
|---|---|---|
| committer | Phillip Lord | 2015-12-17 20:42:15 +0000 |
| commit | ef69697161a6be69dde281c119d5024f1a9546e0 (patch) | |
| tree | bfc6f0801adf8691cbc998772dea57e7057067ff | |
| parent | 88492253bf996a5d3323dd8641695316cbbe345e (diff) | |
| download | emacs-ef69697161a6be69dde281c119d5024f1a9546e0.tar.gz emacs-ef69697161a6be69dde281c119d5024f1a9546e0.zip | |
rmail generate autoloads to non-versioned file.
* lisp/Makefile.in: Add rmail-loaddefs.el to autogenel.
* lisp/mail/rmail.el: Remove autoloads, add require.
* lisp/mail/rmailedit.el,lisp/mail/rmailkwd.el,
lisp/mail/rmailmm.el,lisp/mail/rmailmsc.el,
lisp/mail/rmailsort.el,lisp/mail/rmailsum.el,
lisp/mail/undigest.el: Update file-local.
* test/lisp/mail/rmail-tests.el:
| -rw-r--r-- | lisp/Makefile.in | 3 | ||||
| -rw-r--r-- | lisp/mail/rmail.el | 223 | ||||
| -rw-r--r-- | lisp/mail/rmailedit.el | 2 | ||||
| -rw-r--r-- | lisp/mail/rmailkwd.el | 2 | ||||
| -rw-r--r-- | lisp/mail/rmailmm.el | 2 | ||||
| -rw-r--r-- | lisp/mail/rmailmsc.el | 2 | ||||
| -rw-r--r-- | lisp/mail/rmailsort.el | 2 | ||||
| -rw-r--r-- | lisp/mail/rmailsum.el | 2 | ||||
| -rw-r--r-- | lisp/mail/undigest.el | 2 | ||||
| -rw-r--r-- | test/lisp/mail/rmail-tests.el | 35 |
10 files changed, 46 insertions, 229 deletions
diff --git a/lisp/Makefile.in b/lisp/Makefile.in index d775c92f3e9..1322722f432 100644 --- a/lisp/Makefile.in +++ b/lisp/Makefile.in | |||
| @@ -89,7 +89,8 @@ AUTOGENEL = loaddefs.el \ | |||
| 89 | cedet/ede/loaddefs.el \ | 89 | cedet/ede/loaddefs.el \ |
| 90 | cedet/srecode/loaddefs.el \ | 90 | cedet/srecode/loaddefs.el \ |
| 91 | org/org-loaddefs.el \ | 91 | org/org-loaddefs.el \ |
| 92 | textmodes/reftex-loaddefs.el | 92 | textmodes/reftex-loaddefs.el \ |
| 93 | mail/rmail-loaddefs.el | ||
| 93 | 94 | ||
| 94 | # Set load-prefer-newer for the benefit of the non-bootstrappers. | 95 | # Set load-prefer-newer for the benefit of the non-bootstrappers. |
| 95 | BYTE_COMPILE_FLAGS = \ | 96 | BYTE_COMPILE_FLAGS = \ |
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 8e38564b14a..1ed4cc7f6d8 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -40,6 +40,8 @@ | |||
| 40 | (require 'mail-utils) | 40 | (require 'mail-utils) |
| 41 | (require 'rfc2047) | 41 | (require 'rfc2047) |
| 42 | 42 | ||
| 43 | (require 'rmail-loaddefs) | ||
| 44 | |||
| 43 | (declare-function compilation--message->loc "compile" (cl-x) t) | 45 | (declare-function compilation--message->loc "compile" (cl-x) t) |
| 44 | (declare-function epa--find-coding-system-for-mime-charset "epa" (mime-charset)) | 46 | (declare-function epa--find-coding-system-for-mime-charset "epa" (mime-charset)) |
| 45 | 47 | ||
| @@ -4722,227 +4724,6 @@ Argument MIME is non-nil if this is a mime message." | |||
| 4722 | (setq buffer-file-coding-system rmail-message-encoding)))) | 4724 | (setq buffer-file-coding-system rmail-message-encoding)))) |
| 4723 | (add-hook 'after-save-hook 'rmail-after-save-hook) | 4725 | (add-hook 'after-save-hook 'rmail-after-save-hook) |
| 4724 | 4726 | ||
| 4725 | |||
| 4726 | ;;; Start of automatically extracted autoloads. | ||
| 4727 | |||
| 4728 | ;;;### (autoloads nil "rmailedit" "rmailedit.el" "1ed1c211e6e9c254ba3e0dd8d546e745") | ||
| 4729 | ;;; Generated autoloads from rmailedit.el | ||
| 4730 | |||
| 4731 | (autoload 'rmail-edit-current-message "rmailedit" "\ | ||
| 4732 | Edit the contents of this message. | ||
| 4733 | |||
| 4734 | \(fn)" t nil) | ||
| 4735 | |||
| 4736 | ;;;*** | ||
| 4737 | |||
| 4738 | ;;;### (autoloads nil "rmailkwd" "rmailkwd.el" "298dcda7febb6e4ebf0a166101f40650") | ||
| 4739 | ;;; Generated autoloads from rmailkwd.el | ||
| 4740 | |||
| 4741 | (autoload 'rmail-add-label "rmailkwd" "\ | ||
| 4742 | Add LABEL to labels associated with current RMAIL message. | ||
| 4743 | Completes (see `rmail-read-label') over known labels when reading. | ||
| 4744 | LABEL may be a symbol or string. Only one label is allowed. | ||
| 4745 | |||
| 4746 | \(fn LABEL)" t nil) | ||
| 4747 | |||
| 4748 | (autoload 'rmail-kill-label "rmailkwd" "\ | ||
| 4749 | Remove LABEL from labels associated with current RMAIL message. | ||
| 4750 | Completes (see `rmail-read-label') over known labels when reading. | ||
| 4751 | LABEL may be a symbol or string. Only one label is allowed. | ||
| 4752 | |||
| 4753 | \(fn LABEL)" t nil) | ||
| 4754 | |||
| 4755 | (autoload 'rmail-read-label "rmailkwd" "\ | ||
| 4756 | Read a label with completion, prompting with PROMPT. | ||
| 4757 | Completions are chosen from `rmail-label-obarray'. The default | ||
| 4758 | is `rmail-last-label', if that is non-nil. Updates `rmail-last-label' | ||
| 4759 | according to the choice made, and returns a symbol. | ||
| 4760 | |||
| 4761 | \(fn PROMPT)" nil nil) | ||
| 4762 | |||
| 4763 | (autoload 'rmail-previous-labeled-message "rmailkwd" "\ | ||
| 4764 | Show previous message with one of the labels LABELS. | ||
| 4765 | LABELS should be a comma-separated list of label names. | ||
| 4766 | If LABELS is empty, the last set of labels specified is used. | ||
| 4767 | With prefix argument N moves backward N messages with these labels. | ||
| 4768 | |||
| 4769 | \(fn N LABELS)" t nil) | ||
| 4770 | |||
| 4771 | (autoload 'rmail-next-labeled-message "rmailkwd" "\ | ||
| 4772 | Show next message with one of the labels LABELS. | ||
| 4773 | LABELS should be a comma-separated list of label names. | ||
| 4774 | If LABELS is empty, the last set of labels specified is used. | ||
| 4775 | With prefix argument N moves forward N messages with these labels. | ||
| 4776 | |||
| 4777 | \(fn N LABELS)" t nil) | ||
| 4778 | |||
| 4779 | ;;;*** | ||
| 4780 | |||
| 4781 | ;;;### (autoloads nil "rmailmm" "rmailmm.el" "36f518e036612a33eb436cb267fd39c7") | ||
| 4782 | ;;; Generated autoloads from rmailmm.el | ||
| 4783 | |||
| 4784 | (autoload 'rmail-mime "rmailmm" "\ | ||
| 4785 | Toggle the display of a MIME message. | ||
| 4786 | |||
| 4787 | The actual behavior depends on the value of `rmail-enable-mime'. | ||
| 4788 | |||
| 4789 | If `rmail-enable-mime' is non-nil (the default), this command toggles | ||
| 4790 | the display of a MIME message between decoded presentation form and | ||
| 4791 | raw data. With optional prefix argument ARG, it toggles the display only | ||
| 4792 | of the MIME entity at point, if there is one. The optional argument | ||
| 4793 | STATE forces a particular display state, rather than toggling. | ||
| 4794 | `raw' forces raw mode, any other non-nil value forces decoded mode. | ||
| 4795 | |||
| 4796 | If `rmail-enable-mime' is nil, this creates a temporary \"*RMAIL*\" | ||
| 4797 | buffer holding a decoded copy of the message. Inline content-types are | ||
| 4798 | handled according to `rmail-mime-media-type-handlers-alist'. | ||
| 4799 | By default, this displays text and multipart messages, and offers to | ||
| 4800 | download attachments as specified by `rmail-mime-attachment-dirs-alist'. | ||
| 4801 | The arguments ARG and STATE have no effect in this case. | ||
| 4802 | |||
| 4803 | \(fn &optional ARG STATE)" t nil) | ||
| 4804 | |||
| 4805 | ;;;*** | ||
| 4806 | |||
| 4807 | ;;;### (autoloads nil "rmailmsc" "rmailmsc.el" "c3f0d33739768fc12acc4258ae0da72e") | ||
| 4808 | ;;; Generated autoloads from rmailmsc.el | ||
| 4809 | |||
| 4810 | (autoload 'set-rmail-inbox-list "rmailmsc" "\ | ||
| 4811 | Set the inbox list of the current RMAIL file to FILE-NAME. | ||
| 4812 | You can specify one file name, or several names separated by commas. | ||
| 4813 | If FILE-NAME is empty, remove any existing inbox list. | ||
| 4814 | |||
| 4815 | This applies only to the current session. | ||
| 4816 | |||
| 4817 | \(fn FILE-NAME)" t nil) | ||
| 4818 | |||
| 4819 | ;;;*** | ||
| 4820 | |||
| 4821 | ;;;### (autoloads nil "rmailsort" "rmailsort.el" "8f551773021df4fa1a14ec2517e6a4f1") | ||
| 4822 | ;;; Generated autoloads from rmailsort.el | ||
| 4823 | |||
| 4824 | (autoload 'rmail-sort-by-date "rmailsort" "\ | ||
| 4825 | Sort messages of current Rmail buffer by \"Date\" header. | ||
| 4826 | If prefix argument REVERSE is non-nil, sorts in reverse order. | ||
| 4827 | |||
| 4828 | \(fn REVERSE)" t nil) | ||
| 4829 | |||
| 4830 | (autoload 'rmail-sort-by-subject "rmailsort" "\ | ||
| 4831 | Sort messages of current Rmail buffer by \"Subject\" header. | ||
| 4832 | Ignores any \"Re: \" prefix. If prefix argument REVERSE is | ||
| 4833 | non-nil, sorts in reverse order. | ||
| 4834 | |||
| 4835 | \(fn REVERSE)" t nil) | ||
| 4836 | |||
| 4837 | (autoload 'rmail-sort-by-author "rmailsort" "\ | ||
| 4838 | Sort messages of current Rmail buffer by author. | ||
| 4839 | This uses either the \"From\" or \"Sender\" header, downcased. | ||
| 4840 | If prefix argument REVERSE is non-nil, sorts in reverse order. | ||
| 4841 | |||
| 4842 | \(fn REVERSE)" t nil) | ||
| 4843 | |||
| 4844 | (autoload 'rmail-sort-by-recipient "rmailsort" "\ | ||
| 4845 | Sort messages of current Rmail buffer by recipient. | ||
| 4846 | This uses either the \"To\" or \"Apparently-To\" header, downcased. | ||
| 4847 | If prefix argument REVERSE is non-nil, sorts in reverse order. | ||
| 4848 | |||
| 4849 | \(fn REVERSE)" t nil) | ||
| 4850 | |||
| 4851 | (autoload 'rmail-sort-by-correspondent "rmailsort" "\ | ||
| 4852 | Sort messages of current Rmail buffer by other correspondent. | ||
| 4853 | This uses either the \"From\", \"Sender\", \"To\", or | ||
| 4854 | \"Apparently-To\" header, downcased. Uses the first header not | ||
| 4855 | excluded by `mail-dont-reply-to-names'. If prefix argument | ||
| 4856 | REVERSE is non-nil, sorts in reverse order. | ||
| 4857 | |||
| 4858 | \(fn REVERSE)" t nil) | ||
| 4859 | |||
| 4860 | (autoload 'rmail-sort-by-lines "rmailsort" "\ | ||
| 4861 | Sort messages of current Rmail buffer by the number of lines. | ||
| 4862 | If prefix argument REVERSE is non-nil, sorts in reverse order. | ||
| 4863 | |||
| 4864 | \(fn REVERSE)" t nil) | ||
| 4865 | |||
| 4866 | (autoload 'rmail-sort-by-labels "rmailsort" "\ | ||
| 4867 | Sort messages of current Rmail buffer by labels. | ||
| 4868 | LABELS is a comma-separated list of labels. The order of these | ||
| 4869 | labels specifies the order of messages: messages with the first | ||
| 4870 | label come first, messages with the second label come second, and | ||
| 4871 | so on. Messages that have none of these labels come last. | ||
| 4872 | If prefix argument REVERSE is non-nil, sorts in reverse order. | ||
| 4873 | |||
| 4874 | \(fn REVERSE LABELS)" t nil) | ||
| 4875 | |||
| 4876 | ;;;*** | ||
| 4877 | |||
| 4878 | ;;;### (autoloads nil "rmailsum" "rmailsum.el" "4bc0d1a65aede332348200e1937c84d4") | ||
| 4879 | ;;; Generated autoloads from rmailsum.el | ||
| 4880 | |||
| 4881 | (autoload 'rmail-summary "rmailsum" "\ | ||
| 4882 | Display a summary of all messages, one line per message. | ||
| 4883 | |||
| 4884 | \(fn)" t nil) | ||
| 4885 | |||
| 4886 | (autoload 'rmail-summary-by-labels "rmailsum" "\ | ||
| 4887 | Display a summary of all messages with one or more LABELS. | ||
| 4888 | LABELS should be a string containing the desired labels, separated by commas. | ||
| 4889 | |||
| 4890 | \(fn LABELS)" t nil) | ||
| 4891 | |||
| 4892 | (autoload 'rmail-summary-by-recipients "rmailsum" "\ | ||
| 4893 | Display a summary of all messages with the given RECIPIENTS. | ||
| 4894 | Normally checks the To, From and Cc fields of headers; | ||
| 4895 | but if PRIMARY-ONLY is non-nil (prefix arg given), | ||
| 4896 | only look in the To and From fields. | ||
| 4897 | RECIPIENTS is a regular expression. | ||
| 4898 | |||
| 4899 | \(fn RECIPIENTS &optional PRIMARY-ONLY)" t nil) | ||
| 4900 | |||
| 4901 | (autoload 'rmail-summary-by-regexp "rmailsum" "\ | ||
| 4902 | Display a summary of all messages according to regexp REGEXP. | ||
| 4903 | If the regular expression is found in the header of the message | ||
| 4904 | \(including in the date and other lines, as well as the subject line), | ||
| 4905 | Emacs will list the message in the summary. | ||
| 4906 | |||
| 4907 | \(fn REGEXP)" t nil) | ||
| 4908 | |||
| 4909 | (autoload 'rmail-summary-by-topic "rmailsum" "\ | ||
| 4910 | Display a summary of all messages with the given SUBJECT. | ||
| 4911 | Normally checks just the Subject field of headers; but with prefix | ||
| 4912 | argument WHOLE-MESSAGE is non-nil, looks in the whole message. | ||
| 4913 | SUBJECT is a regular expression. | ||
| 4914 | |||
| 4915 | \(fn SUBJECT &optional WHOLE-MESSAGE)" t nil) | ||
| 4916 | |||
| 4917 | (autoload 'rmail-summary-by-senders "rmailsum" "\ | ||
| 4918 | Display a summary of all messages whose \"From\" field matches SENDERS. | ||
| 4919 | SENDERS is a regular expression. | ||
| 4920 | |||
| 4921 | \(fn SENDERS)" t nil) | ||
| 4922 | |||
| 4923 | ;;;*** | ||
| 4924 | |||
| 4925 | ;;;### (autoloads nil "undigest" "undigest.el" "c0ddfad4fe34ef9c1e790c2cc72b571d") | ||
| 4926 | ;;; Generated autoloads from undigest.el | ||
| 4927 | |||
| 4928 | (autoload 'undigestify-rmail-message "undigest" "\ | ||
| 4929 | Break up a digest message into its constituent messages. | ||
| 4930 | Leaves original message, deleted, before the undigestified messages. | ||
| 4931 | |||
| 4932 | \(fn)" t nil) | ||
| 4933 | |||
| 4934 | (autoload 'unforward-rmail-message "undigest" "\ | ||
| 4935 | Extract a forwarded message from the containing message. | ||
| 4936 | This puts the forwarded message into a separate rmail message following | ||
| 4937 | the containing message. This command is only useful when messages are | ||
| 4938 | forwarded with `rmail-enable-mime-composing' set to nil. | ||
| 4939 | |||
| 4940 | \(fn)" t nil) | ||
| 4941 | |||
| 4942 | ;;;*** | ||
| 4943 | |||
| 4944 | ;;; End of automatically extracted autoloads. | ||
| 4945 | |||
| 4946 | 4727 | ||
| 4947 | (provide 'rmail) | 4728 | (provide 'rmail) |
| 4948 | 4729 | ||
diff --git a/lisp/mail/rmailedit.el b/lisp/mail/rmailedit.el index 0b49782d80f..d79ec39da80 100644 --- a/lisp/mail/rmailedit.el +++ b/lisp/mail/rmailedit.el | |||
| @@ -448,7 +448,7 @@ HEADER-DIFF should be a return value from `rmail-edit-diff-headers'." | |||
| 448 | (provide 'rmailedit) | 448 | (provide 'rmailedit) |
| 449 | 449 | ||
| 450 | ;; Local Variables: | 450 | ;; Local Variables: |
| 451 | ;; generated-autoload-file: "rmail.el" | 451 | ;; generated-autoload-file: "rmail-loaddefs.el" |
| 452 | ;; End: | 452 | ;; End: |
| 453 | 453 | ||
| 454 | ;;; rmailedit.el ends here | 454 | ;;; rmailedit.el ends here |
diff --git a/lisp/mail/rmailkwd.el b/lisp/mail/rmailkwd.el index f46a687d152..5fe867e2fb1 100644 --- a/lisp/mail/rmailkwd.el +++ b/lisp/mail/rmailkwd.el | |||
| @@ -192,7 +192,7 @@ With prefix argument N moves forward N messages with these labels." | |||
| 192 | (provide 'rmailkwd) | 192 | (provide 'rmailkwd) |
| 193 | 193 | ||
| 194 | ;; Local Variables: | 194 | ;; Local Variables: |
| 195 | ;; generated-autoload-file: "rmail.el" | 195 | ;; generated-autoload-file: "rmail-loaddefs.el" |
| 196 | ;; End: | 196 | ;; End: |
| 197 | 197 | ||
| 198 | ;;; rmailkwd.el ends here | 198 | ;;; rmailkwd.el ends here |
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index 16f62154fbc..8ca10b26246 100644 --- a/lisp/mail/rmailmm.el +++ b/lisp/mail/rmailmm.el | |||
| @@ -1560,7 +1560,7 @@ This is the usual value of `rmail-insert-mime-forwarded-message-function'." | |||
| 1560 | (provide 'rmailmm) | 1560 | (provide 'rmailmm) |
| 1561 | 1561 | ||
| 1562 | ;; Local Variables: | 1562 | ;; Local Variables: |
| 1563 | ;; generated-autoload-file: "rmail.el" | 1563 | ;; generated-autoload-file: "rmail-loaddefs.el" |
| 1564 | ;; End: | 1564 | ;; End: |
| 1565 | 1565 | ||
| 1566 | ;;; rmailmm.el ends here | 1566 | ;;; rmailmm.el ends here |
diff --git a/lisp/mail/rmailmsc.el b/lisp/mail/rmailmsc.el index aefb35d5c52..16329f4d3bb 100644 --- a/lisp/mail/rmailmsc.el +++ b/lisp/mail/rmailmsc.el | |||
| @@ -55,7 +55,7 @@ This applies only to the current session." | |||
| 55 | (rmail-show-message-1 rmail-current-message)) | 55 | (rmail-show-message-1 rmail-current-message)) |
| 56 | 56 | ||
| 57 | ;; Local Variables: | 57 | ;; Local Variables: |
| 58 | ;; generated-autoload-file: "rmail.el" | 58 | ;; generated-autoload-file: "rmail-loaddefs.el" |
| 59 | ;; End: | 59 | ;; End: |
| 60 | 60 | ||
| 61 | ;;; rmailmsc.el ends here | 61 | ;;; rmailmsc.el ends here |
diff --git a/lisp/mail/rmailsort.el b/lisp/mail/rmailsort.el index 3e01b58a523..1e1b425c257 100644 --- a/lisp/mail/rmailsort.el +++ b/lisp/mail/rmailsort.el | |||
| @@ -251,7 +251,7 @@ Numeric keys are sorted numerically, all others as strings." | |||
| 251 | (provide 'rmailsort) | 251 | (provide 'rmailsort) |
| 252 | 252 | ||
| 253 | ;; Local Variables: | 253 | ;; Local Variables: |
| 254 | ;; generated-autoload-file: "rmail.el" | 254 | ;; generated-autoload-file: "rmail-loaddefs.el" |
| 255 | ;; End: | 255 | ;; End: |
| 256 | 256 | ||
| 257 | ;;; rmailsort.el ends here | 257 | ;;; rmailsort.el ends here |
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index eeb42e81c6d..0717bb8d784 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -1870,7 +1870,7 @@ the summary is only showing a subset of messages." | |||
| 1870 | (provide 'rmailsum) | 1870 | (provide 'rmailsum) |
| 1871 | 1871 | ||
| 1872 | ;; Local Variables: | 1872 | ;; Local Variables: |
| 1873 | ;; generated-autoload-file: "rmail.el" | 1873 | ;; generated-autoload-file: "rmail-loaddefs.el" |
| 1874 | ;; End: | 1874 | ;; End: |
| 1875 | 1875 | ||
| 1876 | ;;; rmailsum.el ends here | 1876 | ;;; rmailsum.el ends here |
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 9fbbd94b083..7346d0d4165 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el | |||
| @@ -327,7 +327,7 @@ forwarded with `rmail-enable-mime-composing' set to nil." | |||
| 327 | (provide 'undigest) | 327 | (provide 'undigest) |
| 328 | 328 | ||
| 329 | ;; Local Variables: | 329 | ;; Local Variables: |
| 330 | ;; generated-autoload-file: "rmail.el" | 330 | ;; generated-autoload-file: "rmail-loaddefs.el" |
| 331 | ;; End: | 331 | ;; End: |
| 332 | 332 | ||
| 333 | ;;; undigest.el ends here | 333 | ;;; undigest.el ends here |
diff --git a/test/lisp/mail/rmail-tests.el b/test/lisp/mail/rmail-tests.el new file mode 100644 index 00000000000..ed481d05b8a --- /dev/null +++ b/test/lisp/mail/rmail-tests.el | |||
| @@ -0,0 +1,35 @@ | |||
| 1 | ;;; rmail-tests.el --- Test suite. -*- lexical-binding: t -*- | ||
| 2 | |||
| 3 | ;; Copyright (C) 2015 Free Software Foundation, Inc. | ||
| 4 | |||
| 5 | ;; This file is part of GNU Emacs. | ||
| 6 | |||
| 7 | ;; GNU Emacs is free software: you can redistribute it and/or modify | ||
| 8 | ;; it under the terms of the GNU General Public License as published by | ||
| 9 | ;; the Free Software Foundation, either version 3 of the License, or | ||
| 10 | ;; (at your option) any later version. | ||
| 11 | |||
| 12 | ;; GNU Emacs is distributed in the hope that it will be useful, | ||
| 13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 15 | ;; GNU General Public License for more details. | ||
| 16 | |||
| 17 | ;; You should have received a copy of the GNU General Public License | ||
| 18 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | ||
| 19 | |||
| 20 | ;;; Code: | ||
| 21 | (require 'ert) | ||
| 22 | (require 'rmail) | ||
| 23 | |||
| 24 | |||
| 25 | (ert-deftest rmail-autoload () | ||
| 26 | "Tests to see whether reftex-auc has been autoloaded" | ||
| 27 | (should | ||
| 28 | (fboundp 'rmail-edit-current-message)) | ||
| 29 | (should | ||
| 30 | (autoloadp | ||
| 31 | (symbol-function | ||
| 32 | 'rmail-edit-current-message)))) | ||
| 33 | |||
| 34 | (provide 'rmail-tests) | ||
| 35 | ;; rmail-tests.el ends here | ||