From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/44450 Path: main.gmane.org!not-for-mail From: Vin Shelton Newsgroups: gmane.emacs.gnus.general Subject: I want my C-c C-c back! Date: Sun, 28 Apr 2002 21:22:15 -0400 Organization: EtherSoft, Inc Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1020043511 28301 127.0.0.1 (29 Apr 2002 01:25:11 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 29 Apr 2002 01:25:11 +0000 (UTC) Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 171zuf-0007MM-00 for ; Mon, 29 Apr 2002 03:25:09 +0200 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 171ztW-0004FF-00; Sun, 28 Apr 2002 20:23:58 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sun, 28 Apr 2002 20:24:11 -0500 (CDT) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id UAA22709 for ; Sun, 28 Apr 2002 20:23:47 -0500 (CDT) Original-Received: (qmail 21185 invoked by alias); 29 Apr 2002 01:23:27 -0000 Original-Received: (qmail 21180 invoked from network); 29 Apr 2002 01:23:27 -0000 Original-Received: from 216-164-180-36.c3-0.nwt-ubr1.sbo-nwt.ma.cable.rcn.com (HELO zion.rcn.com) (216.164.180.36) by gnus.org with SMTP; 29 Apr 2002 01:23:27 -0000 Original-Received: by zion.rcn.com (Postfix, from userid 501) id 0D192128AC; Sun, 28 Apr 2002 21:22:16 -0400 (EDT) Original-To: ding@gnus.org Original-Lines: 40 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:44450 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:44450 --=-=-= I'm using oort from the latest CVS under XEmacs 21.4, and I have lost my C-c C-c binding for message-send-and-exit. I went looking in the source, and I found the following fragment in message.el: (unless message-mode-map (setq message-mode-map (make-keymap)) (set-keymap-parent message-mode-map text-mode-map) Inside this form C-c C-c is bound to message-send-and-exit, so I guess that when this form is executed, message-mode-map is non-nil. When I build gnus from source and copy it into my site-packages directory, I run make install and then I run the following command in order to generate autoloads: xemacs -vanilla -batch -eval "(setq autoload-package-name \"gnus\")" -f batch-update-directory . If I remove this auto-autoloads file from the lisp/gnus directory and then start gnus [via (load-library "gnus") M-x gnus], then C-c C-c is correctly bound, apparently because message-mode-map is nil when the relevant code is executed in message.el. So it looks to me like something in my auto-autoloads.el file is causing message-mode-map to be defined, and this, in turn is preventing the default message-mode-map from being set correctly. I have attached the auto-autoloads.el file here in case it is of any use: --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=auto-autoloads.el Content-Transfer-Encoding: 8bit Content-Description: auto-autoloads ;;; DO NOT MODIFY THIS FILE (if (featurep 'gnus-autoloads) (error "Already loaded")) ;;;### (autoloads (binhex-decode-region binhex-decode-region-external binhex-decode-region-internal) "binhex" "gnus/binhex.el") (defconst binhex-begin-line "^:...............................................................$") (autoload 'binhex-decode-region-internal "binhex" "\ Binhex decode region between START and END without using an external program. If HEADER-ONLY is non-nil only decode header and return filename." t nil) (autoload 'binhex-decode-region-external "binhex" "\ Binhex decode region between START and END using external decoder." t nil) (autoload 'binhex-decode-region "binhex" "\ Binhex decode region between START and END." t nil) ;;;*** ;;;### (autoloads (canlock-verify canlock-insert-header) "canlock" "gnus/canlock.el") (autoload 'canlock-insert-header "canlock" "\ Insert a Cancel-Key and/or a Cancel-Lock header if possible." nil nil) (autoload 'canlock-verify "canlock" "\ Verify Cancel-Lock or Cancel-Key in BUFFER. If BUFFER is nil, the current buffer is assumed. Signal an error if it fails. You can modify the behavior of this function to return non- nil instead of to signal an error by setting the option `canlock-ignore-errors' to non-nil." t nil) ;;;*** ;;;### (autoloads (gnus-article-outlook-deuglify-article gnus-outlook-deuglify-article gnus-outlook-repair-attribution gnus-outlook-unwrap-lines) "deuglify" "gnus/deuglify.el") (defcustom gnus-outlook-deuglify-unwrap-min 45 "Minimum length of the cited line above the (possibly) wrapped line." :type 'number :group 'gnus-outlook-deuglify) (defcustom gnus-outlook-deuglify-unwrap-max 95 "Maximum length of the cited line after unwrapping." :type 'number :group 'gnus-outlook-deuglify) (autoload 'gnus-outlook-unwrap-lines "deuglify" "\ Unwrap lines that appear to be wrapped citation lines. You can control what lines will be unwrapped by frobbing `gnus-outlook-deuglify-unwrap-min' and `gnus-outlook-deuglify-unwrap-max', indicating the miminum and maximum length of an unwrapped citation line." t nil) (autoload 'gnus-outlook-repair-attribution "deuglify" "\ Repair a broken attribution line." t nil) (autoload 'gnus-outlook-deuglify-article "deuglify" "\ Deuglify broken Outlook (Express) articles." t nil) (autoload 'gnus-article-outlook-deuglify-article "deuglify" "\ Deuglify broken Outlook (Express) articles and redisplay." t nil) ;;;*** ;;;### (autoloads (gnus-earcon-display) "earcon" "gnus/earcon.el") (autoload 'gnus-earcon-display "earcon" "\ Play sounds in message buffers." t nil) ;;;*** ;;;### (autoloads (gnus-agent-regenerate gnus-agent-batch gnus-agent-batch-fetch gnus-agentize gnus-slave-unplugged gnus-plugged gnus-unplugged) "gnus-agent" "gnus/gnus-agent.el") (autoload 'gnus-unplugged "gnus-agent" "\ Start Gnus unplugged." t nil) (autoload 'gnus-plugged "gnus-agent" "\ Start Gnus plugged." t nil) (autoload 'gnus-slave-unplugged "gnus-agent" "\ Read news as a slave unplugged." t nil) (autoload 'gnus-agentize "gnus-agent" "\ Allow Gnus to be an offline newsreader. The normal usage of this command is to put the following as the last form in your `.gnus.el' file: \(gnus-agentize) This will modify the `gnus-setup-news-hook', and `message-send-mail-real-function' variables, and install the Gnus agent minor mode in all Gnus buffers." t nil) (autoload 'gnus-agent-batch-fetch "gnus-agent" "\ Start Gnus and fetch session." t nil) (autoload 'gnus-agent-batch "gnus-agent" nil t nil) (autoload 'gnus-agent-regenerate "gnus-agent" "\ Regenerate all agent covered files. If CLEAN, don't read existing active and agentview files." t nil) ;;;*** ;;;### (autoloads (gnus-article-prepare-display) "gnus-art" "gnus/gnus-art.el") (autoload 'gnus-article-prepare-display "gnus-art" "\ Make the current buffer look like a nice article." nil nil) ;;;*** ;;;### (autoloads (gnus-audio-play) "gnus-audio" "gnus/gnus-audio.el") (autoload 'gnus-audio-play "gnus-audio" "\ Play a sound FILE through the speaker." t nil) ;;;*** ;;;### (autoloads (gnus-cache-generate-nov-databases gnus-cache-generate-active gnus-jog-cache) "gnus-cache" "gnus/gnus-cache.el") (autoload 'gnus-jog-cache "gnus-cache" "\ Go through all groups and put the articles into the cache. Usage: $ emacs -batch -l ~/.emacs -l gnus -f gnus-jog-cache" t nil) (autoload 'gnus-cache-generate-active "gnus-cache" "\ Generate the cache active file." t nil) (autoload 'gnus-cache-generate-nov-databases "gnus-cache" "\ Generate NOV files recursively starting in DIR." t nil) ;;;*** ;;;### (autoloads (gnus-delay-initialize gnus-delay-send-queue gnus-delay-article) "gnus-delay" "gnus/gnus-delay.el") (defgroup gnus-delay nil "Arrange for sending postings later." :group 'gnus) (autoload 'gnus-delay-article "gnus-delay" "\ Delay this article by some time. DELAY is a string, giving the length of the time. Possible values are: * for in minutes (`m'), hours (`h'), days (`d'), weeks (`w'), months (`M'), or years (`Y'); * YYYY-MM-DD for a specific date. The time of day is given by the variable `gnus-delay-default-hour', minute and second are zero. * hh:mm for a specific time. Use 24h format. If it is later than this time, then the deadline is tomorrow, else today." t nil) (autoload 'gnus-delay-send-queue "gnus-delay" "\ Send all the delayed messages that are due now." t nil) (autoload 'gnus-delay-initialize "gnus-delay" "\ Initialize the gnus-delay package. This sets up a key binding in `message-mode' to delay a message. This tells Gnus to look for delayed messages after getting new news. The optional arg NO-KEYMAP is ignored. Checking delayed messages is skipped if optional arg NO-CHECK is non-nil." nil nil) ;;;*** ;;;### (autoloads (turn-on-gnus-dired-mode) "gnus-dired" "gnus/gnus-dired.el") (autoload 'turn-on-gnus-dired-mode "gnus-dired" "\ Convenience method to turn on gnus-dired-mode." nil nil) ;;;*** ;;;### (autoloads (gnus-draft-reminder) "gnus-draft" "gnus/gnus-draft.el") (autoload 'gnus-draft-reminder "gnus-draft" "\ Reminder user if there are unsent drafts." t nil) ;;;*** ;;;### (autoloads (gnus-convert-gray-x-face-region gnus-convert-gray-x-face-to-xpm gnus-x-face-from-file gnus-random-x-face) "gnus-fun" "gnus/gnus-fun.el") (autoload 'gnus-random-x-face "gnus-fun" "\ Insert a random X-Face header from `gnus-x-face-directory'." t nil) (autoload 'gnus-x-face-from-file "gnus-fun" "\ Insert an X-Face header based on an image file." t nil) (autoload 'gnus-convert-gray-x-face-to-xpm "gnus-fun" nil nil nil) (autoload 'gnus-convert-gray-x-face-region "gnus-fun" "\ Convert the X-Faces in region to a PPM file." t nil) ;;;*** ;;;### (autoloads (gnus-fetch-group-other-frame gnus-fetch-group) "gnus-group" "gnus/gnus-group.el") (autoload 'gnus-fetch-group "gnus-group" "\ Start Gnus if necessary and enter GROUP. Returns whether the fetching was successful or not." t nil) (autoload 'gnus-fetch-group-other-frame "gnus-group" "\ Pop up a frame and enter GROUP." t nil) ;;;*** ;;;### (autoloads (gnus-batch-score) "gnus-kill" "gnus/gnus-kill.el") (defalias 'gnus-batch-kill 'gnus-batch-score) (autoload 'gnus-batch-score "gnus-kill" "\ Run batched scoring. Usage: emacs -batch -l ~/.emacs -l gnus -f gnus-batch-score" t nil) ;;;*** ;;;### (autoloads (gnus-mailing-list-mode gnus-mailing-list-insinuate turn-on-gnus-mailing-list-mode) "gnus-ml" "gnus/gnus-ml.el") (autoload 'turn-on-gnus-mailing-list-mode "gnus-ml" nil nil nil) (autoload 'gnus-mailing-list-insinuate "gnus-ml" "\ Setup group parameters from List-Post header. If FORCE is non-nil, replace the old ones." t nil) (autoload 'gnus-mailing-list-mode "gnus-ml" "\ Minor mode for providing mailing-list commands. \\{gnus-mailing-list-mode-map}" t nil) ;;;*** ;;;### (autoloads (gnus-group-split-fancy gnus-group-split gnus-group-split-update gnus-group-split-setup) "gnus-mlspl" "gnus/gnus-mlspl.el") (autoload 'gnus-group-split-setup "gnus-mlspl" "\ Set up the split for nnmail-split-fancy. Sets things up so that nnmail-split-fancy is used for mail splitting, and defines the variable nnmail-split-fancy according with group parameters. If AUTO-UPDATE is non-nil (prefix argument accepted, if called interactively), it makes sure nnmail-split-fancy is re-computed before getting new mail, by adding gnus-group-split-update to nnmail-pre-get-new-mail-hook. A non-nil CATCH-ALL replaces the current value of gnus-group-split-default-catch-all-group. This variable is only used by gnus-group-split-update, and only when its CATCH-ALL argument is nil. This argument may contain any fancy split, that will be added as the last split in a `|' split produced by gnus-group-split-fancy, unless overridden by any group marked as a catch-all group. Typical uses are as simple as the name of a default mail group, but more elaborate fancy splits may also be useful to split mail that doesn't match any of the group-specified splitting rules. See gnus-group-split-fancy for details." t nil) (autoload 'gnus-group-split-update "gnus-mlspl" "\ Computes nnmail-split-fancy from group params and CATCH-ALL, by calling (gnus-group-split-fancy nil nil CATCH-ALL). If CATCH-ALL is nil, gnus-group-split-default-catch-all-group is used instead. This variable is set by gnus-group-split-setup." t nil) (autoload 'gnus-group-split "gnus-mlspl" "\ Uses information from group parameters in order to split mail. See gnus-group-split-fancy for more information. gnus-group-split is a valid value for nnmail-split-methods." nil nil) (autoload 'gnus-group-split-fancy "gnus-mlspl" "\ Uses information from group parameters in order to split mail. It can be embedded into `nnmail-split-fancy' lists with the SPLIT \(: gnus-group-split-fancy GROUPS NO-CROSSPOST CATCH-ALL) GROUPS may be a regular expression or a list of group names, that will be used to select candidate groups. If it is ommited or nil, all existing groups are considered. if NO-CROSSPOST is ommitted or nil, a & split will be returned, otherwise, a | split, that does not allow crossposting, will be returned. For each selected group, a SPLIT is composed like this: if SPLIT-SPEC is specified, this split is returned as-is (unless it is nil: in this case, the group is ignored). Otherwise, if TO-ADDRESS, TO-LIST and/or EXTRA-ALIASES are specified, a regexp that matches any of them is constructed (extra-aliases may be a list). Additionally, if SPLIT-REGEXP is specified, the regexp will be extended so that it matches this regexp too, and if SPLIT-EXCLUDE is specified, RESTRICT clauses will be generated. If CATCH-ALL is nil, no catch-all handling is performed, regardless of catch-all marks in group parameters. Otherwise, if there is no selected group whose SPLIT-REGEXP matches the empty string, nor is there a selected group whose SPLIT-SPEC is 'catch-all, this fancy split (say, a group name) will be appended to the returned SPLIT list, as the last element of a '| SPLIT. For example, given the following group parameters: nnml:mail.bar: \((to-address . \"bar@femail.com\") (split-regexp . \".*@femail\\\\.com\")) nnml:mail.foo: \((to-list . \"foo@nowhere.gov\") (extra-aliases \"foo@localhost\" \"foo-redist@home\") (split-exclude \"bugs-foo\" \"rambling-foo\") (admin-address . \"foo-request@nowhere.gov\")) nnml:mail.others: \((split-spec . catch-all)) Calling (gnus-group-split-fancy nil nil \"mail.misc\") returns: \(| (& (any \"\\\\(bar@femail\\\\.com\\\\|.*@femail\\\\.com\\\\)\" \"mail.bar\") (any \"\\\\(foo@nowhere\\\\.gov\\\\|foo@localhost\\\\|foo-redist@home\\\\)\" - \"bugs-foo\" - \"rambling-foo\" \"mail.foo\")) \"mail.others\")" nil nil) ;;;*** ;;;### (autoloads (gnus-change-server) "gnus-move" "gnus/gnus-move.el") (autoload 'gnus-change-server "gnus-move" "\ Move from FROM-SERVER to TO-SERVER. Update the .newsrc.eld file to reflect the change of nntp server." t nil) ;;;*** ;;;### (autoloads (gnus-button-reply gnus-button-mailto gnus-msg-mail) "gnus-msg" "gnus/gnus-msg.el") (autoload 'gnus-msg-mail "gnus-msg" "\ Start editing a mail message to be sent. Like `message-mail', but with Gnus paraphernalia, particularly the Gcc: header for archiving purposes." t nil) (autoload 'gnus-button-mailto "gnus-msg" "\ Mail to ADDRESS." nil nil) (autoload 'gnus-button-reply "gnus-msg" "\ Like `message-reply'." t nil) (define-mail-user-agent 'gnus-user-agent 'gnus-msg-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) ;;;*** ;;;### (autoloads (gnus-treat-newsgroups-picon gnus-treat-mail-picon gnus-treat-from-picon) "gnus-picon" "gnus/gnus-picon.el") (autoload 'gnus-treat-from-picon "gnus-picon" "\ Display picons in the From header. If picons are already displayed, remove them." t nil) (autoload 'gnus-treat-mail-picon "gnus-picon" "\ Display picons in the Cc and To headers. If picons are already displayed, remove them." t nil) (autoload 'gnus-treat-newsgroups-picon "gnus-picon" "\ Display picons in the Newsgroups and Followup-To headers. If picons are already displayed, remove them." t nil) ;;;*** ;;;### (autoloads (gnus-add-to-sorted-list gnus-sorted-nunion gnus-sorted-union gnus-sorted-nintersection gnus-sorted-intersection gnus-intersection gnus-sorted-complement gnus-sorted-ndifference gnus-sorted-difference) "gnus-range" "gnus/gnus-range.el") (autoload 'gnus-sorted-difference "gnus-range" "\ Return a list of elements of LIST1 that do not appear in LIST2. Both lists have to be sorted over <. The tail of LIST1 is not copied." nil nil) (autoload 'gnus-sorted-ndifference "gnus-range" "\ Return a list of elements of LIST1 that do not appear in LIST2. Both lists have to be sorted over <. LIST1 is modified." nil nil) (autoload 'gnus-sorted-complement "gnus-range" "\ Return a list of elements that are in LIST1 or LIST2 but not both. Both lists have to be sorted over <." nil nil) (autoload 'gnus-intersection "gnus-range" nil nil nil) (autoload 'gnus-sorted-intersection "gnus-range" "\ Return intersection of LIST1 and LIST2. LIST1 and LIST2 have to be sorted over <." nil nil) (defalias 'gnus-set-sorted-intersection 'gnus-sorted-nintersection) (autoload 'gnus-sorted-nintersection "gnus-range" "\ Return intersection of LIST1 and LIST2 by modifying cdr pointers of LIST1. LIST1 and LIST2 have to be sorted over <." nil nil) (autoload 'gnus-sorted-union "gnus-range" "\ Return union of LIST1 and LIST2. LIST1 and LIST2 have to be sorted over <." nil nil) (autoload 'gnus-sorted-nunion "gnus-range" "\ Return union of LIST1 and LIST2 by modifying cdr pointers of LIST1. LIST1 and LIST2 have to be sorted over <." nil nil) (autoload 'gnus-add-to-sorted-list "gnus-range" "\ Add NUM into sorted LIST by side effect." nil nil) ;;;*** ;;;### (autoloads (gnus-sieve-article-add-rule gnus-sieve-generate gnus-sieve-update) "gnus-sieve" "gnus/gnus-sieve.el") (autoload 'gnus-sieve-update "gnus-sieve" "\ Update the Sieve script in gnus-sieve-file, by replacing the region between gnus-sieve-region-start and gnus-sieve-region-end with \(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost), then execute gnus-sieve-update-shell-command. See the documentation for these variables and functions for details." t nil) (autoload 'gnus-sieve-generate "gnus-sieve" "\ Generate the Sieve script in gnus-sieve-file, by replacing the region between gnus-sieve-region-start and gnus-sieve-region-end with \(gnus-sieve-script gnus-sieve-select-method gnus-sieve-crosspost). See the documentation for these variables and functions for details." t nil) (autoload 'gnus-sieve-article-add-rule "gnus-sieve" nil t nil) ;;;*** ;;;### (autoloads (gnus-batch-brew-soup) "gnus-soup" "gnus/gnus-soup.el") (autoload 'gnus-batch-brew-soup "gnus-soup" "\ Brew a SOUP packet from groups mention on the command line. Will use the remaining command line arguments as regular expressions for matching on group names. For instance, if you want to brew on all the nnml groups, as well as groups with \"emacs\" in the name, you could say something like: $ emacs -batch -f gnus-batch-brew-soup ^nnml \".*emacs.*\" Note -- this function hasn't been implemented yet." t nil) ;;;*** ;;;### (autoloads (gnus-update-format) "gnus-spec" "gnus/gnus-spec.el") (autoload 'gnus-update-format "gnus-spec" "\ Update the format specification near point." t nil) ;;;*** ;;;### (autoloads (gnus-declare-backend gnus-unload) "gnus-start" "gnus/gnus-start.el") (autoload 'gnus-unload "gnus-start" "\ Unload all Gnus features. \(For some value of `all' or `Gnus'.) Currently, features whose names have prefixes `gnus-', `nn', `mm-' or `rfc' are unloaded. Use cautiously -- unloading may cause trouble." t nil) (autoload 'gnus-declare-backend "gnus-start" "\ Declare backend NAME with ABILITIES as a Gnus backend." nil nil) ;;;*** ;;;### (autoloads (gnus-add-configuration) "gnus-win" "gnus/gnus-win.el") (autoload 'gnus-add-configuration "gnus-win" "\ Add the window configuration CONF to `gnus-buffer-configuration'." nil nil) ;;;*** ;;;### (autoloads (gnus gnus-other-frame gnus-slave gnus-no-server gnus-slave-no-server) "gnus" "gnus/gnus.el") (autoload 'gnus-slave-no-server "gnus" "\ Read network news as a slave, without connecting to the local server." t nil) (autoload 'gnus-no-server "gnus" "\ Read network news. If ARG is a positive number, Gnus will use that as the startup level. If ARG is nil, Gnus will be started at level 2. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use. As opposed to `gnus', this command will not connect to the local server." t nil) (autoload 'gnus-slave "gnus" "\ Read news as a slave." t nil) (autoload 'gnus-other-frame "gnus" "\ Pop up a frame to read news." t nil) (autoload 'gnus "gnus" "\ Read network news. If ARG is non-nil and a positive number, Gnus will use that as the startup level. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use." t nil) ;;;*** ;;;### (autoloads (html2text) "html2text" "gnus/html2text.el") (autoload 'html2text "html2text" "\ Convert HTML to plain text in the current buffer." t nil) ;;;*** ;;;### (autoloads (message-xpost-fup2 message-change-subject message-strip-subject-was message-mark-insert-file message-mark-inserted-region) "message-utils" "gnus/message-utils.el") (autoload 'message-mark-inserted-region "message-utils" "\ Mark some region in the current article with enclosing tags. See `message-begin-inserted-text-mark' and `message-end-inserted-text-mark'." t nil) (autoload 'message-mark-insert-file "message-utils" "\ Inserts FILE at point, marking it with enclosing tags. See `message-begin-inserted-text-mark' and `message-end-inserted-text-mark'." t nil) (autoload 'message-strip-subject-was "message-utils" "\ Remove trailing \"(Was: )\" from subject lines." nil nil) (autoload 'message-change-subject "message-utils" "\ Ask for new Subject: header, append (was: )." t nil) (autoload 'message-xpost-fup2 "message-utils" "\ Crossposts message and sets Followup-To to TARGET-GROUP. With prefix-argument just set Follow-Up, don't cross-post." t nil) ;;;*** ;;;### (autoloads (unbold-region bold-region message-news-other-frame message-news-other-window message-mail-other-frame message-mail-other-window message-bounce message-resend message-insinuate-rmail message-forward-rmail-make-body message-forward-make-body message-forward message-recover message-supersede message-cancel-news message-followup message-wide-reply message-reply message-news message-mail) "message" "gnus/message.el") (defcustom message-from-style 'default "*Specifies how \"From\" headers look.\n\nIf nil, they contain just the return address like:\n king@grassland.com\nIf `parens', they look like:\n king@grassland.com (Elvis Parsley)\nIf `angles', they look like:\n Elvis Parsley \n\nOtherwise, most addresses look like `angles', but they look like\n`parens' if `angles' would need quoting and `parens' would not." :type '(choice (const :tag "simple" nil) (const parens) (const angles) (const default)) :group 'message-headers) (defcustom message-signature-separator "^-- *$" "Regexp matching the signature separator." :type 'regexp :group 'message-various) (defcustom message-user-organization-file "/usr/lib/news/organization" "*Local news organization file." :type 'file :group 'message-headers) (defcustom message-send-mail-function 'message-send-mail-with-sendmail "Function to call to send the current buffer as mail.\nThe headers should be delimited by a line whose contents match the\nvariable `mail-header-separator'.\n\nValid values include `message-send-mail-with-sendmail' (the default),\n`message-send-mail-with-mh', `message-send-mail-with-qmail',\n`smtpmail-send-it' and `feedmail-send-it'.\n\nSee also `send-mail-function'." :type '(radio (function-item message-send-mail-with-sendmail) (function-item message-send-mail-with-mh) (function-item message-send-mail-with-qmail) (function-item smtpmail-send-it) (function-item feedmail-send-it) (function :tag "Other")) :group 'message-sending :group 'message-mail) (defcustom message-citation-line-function 'message-insert-citation-line "*Function called to insert the \"Whomever writes:\" line.\n\nNote that Gnus provides a feature where the reader can click on\n`writes:' to hide the cited text. If you change this line too much,\npeople who read your message will have to change their Gnus\nconfiguration. See the variable `gnus-cite-attribution-suffix'." :type 'function :group 'message-insertion) (defcustom message-yank-prefix "> " "*Prefix inserted on the lines of yanked messages.\nFix `message-cite-prefix-regexp' if it is set to an abnormal value.\nSee also `message-yank-cited-prefix'." :type 'string :group 'message-insertion) (defcustom message-cite-function 'message-cite-original "*Function for citing an original message.\nPredefined functions include `message-cite-original' and\n`message-cite-original-without-signature'.\nNote that `message-cite-original' uses `mail-citation-hook' if that is non-nil." :type '(radio (function-item message-cite-original) (function-item message-cite-original-without-signature) (function-item sc-cite-original) (function :tag "Other")) :group 'message-insertion) (defcustom message-indent-citation-function 'message-indent-citation "*Function for modifying a citation just inserted in the mail buffer.\nThis can also be a list of functions. Each function can find the\ncitation between (point) and (mark t). And each function should leave\npoint and mark around the citation text as modified." :type 'function :group 'message-insertion) (defcustom message-signature t "*String to be inserted at the end of the message buffer.\nIf t, the `message-signature-file' file will be inserted instead.\nIf a function, the result from the function will be used instead.\nIf a form, the result from the form will be used instead." :type 'sexp :group 'message-insertion) (defcustom message-signature-file "~/.signature" "*Name of file containing the text inserted at end of message buffer.\nIgnored if the named file doesn't exist.\nIf nil, don't insert a signature." :type '(choice file (const :tags "None" nil)) :group 'message-insertion) (define-mail-user-agent 'message-user-agent 'message-mail 'message-send-and-exit 'message-kill-buffer 'message-send-hook) (define-derived-mode message-mode text-mode "Message" "Major mode for editing mail and news to be sent.\nLike Text Mode but with these additional commands:\\\nC-c C-s `message-send' (send the message) C-c C-c `message-send-and-exit'\nC-c C-d Postpone sending the message C-c C-k Kill the message\nC-c C-f move to a header field (and create it if there isn't):\n C-c C-f C-t move to To C-c C-f C-s move to Subject\n C-c C-f C-c move to Cc C-c C-f C-b move to Bcc\n C-c C-f C-w move to Fcc C-c C-f C-r move to Reply-To\n C-c C-f C-u move to Summary C-c C-f C-n move to Newsgroups\n C-c C-f C-k move to Keywords C-c C-f C-d move to Distribution\n C-c C-f C-o move to From (\"Originator\")\n C-c C-f C-f move to Followup-To\n C-c C-f C-m move to Mail-Followup-To\n C-c C-f C-i cycle through Importance values\nC-c C-t `message-insert-to' (add a To header to a news followup)\nC-c C-l `message-to-list-only' (removes all but list add ress in to/cc)\nC-c C-n `message-insert-newsgroups' (add a Newsgroup header to a news reply)\nC-c C-b `message-goto-body' (move to beginning of message text).\nC-c C-i `message-goto-signature' (move to the beginning of the signature).\nC-c C-w `message-insert-signature' (insert `message-signature-file' file).\nC-c C-y `message-yank-original' (insert current message, if any).\nC-c C-q `message-fill-yanked-message' (fill what was yanked).\nC-c C-e `message-elide-region' (elide the text between point and mark).\nC-c C-v `message-delete-not-region' (remove the text outside the region).\nC-c C-z `message-kill-to-signature' (kill the text up to the signature).\nC-c C-r `message-caesar-buffer-body' (rot13 the message body).\nC-c C-a `mml-attach-file' (attach a file as MIME).\nC-c C-u `message-insert-or-toggle-importance' (insert or cycle importance).\nC-c M-n `message-insert-disposition-notification-to' (request receipt).\nM-RET `message-newline-and-reformat' (bre ak the line and reformat)." (setq local-abbrev-table text-mode-abbrev-table) (set (make-local-variable 'message-reply-buffer) nil) (make-local-variable 'message-send-actions) (make-local-variable 'message-exit-actions) (make-local-variable 'message-kill-actions) (make-local-variable 'message-postpone-actions) (make-local-variable 'message-draft-article) (setq buffer-offer-save t) (set (make-local-variable 'facemenu-add-face-function) (lambda (face end) (let ((face-fun (cdr (assq face message-face-alist)))) (if face-fun (funcall face-fun (point) end) (error "Face %s not configured for %s mode" face mode-name))) "")) (set (make-local-variable 'facemenu-remove-face-function) t) (set (make-local-variable 'message-reply-headers) nil) (make-local-variable 'message-newsreader) (make-local-variable 'message-mailer) (make-local-variable 'message-post-method) (set (make-local-variable 'message-sent-message-via) nil) (set (make-local-variable 'message-checksum) nil) (set (make-local-va riable 'message-mime-part) 0) (message-setup-fill-variables) (set (make-local-variable 'comment-start) message-yank-prefix) (if (featurep 'xemacs) (message-setup-toolbar) (set (make-local-variable 'font-lock-defaults) '(message-font-lock-keywords t)) (if (boundp 'tool-bar-map) (set (make-local-variable 'tool-bar-map) (message-tool-bar-map)))) (easy-menu-add message-mode-menu message-mode-map) (easy-menu-add message-mode-field-menu message-mode-map) (make-local-hook 'after-change-functions) (add-hook 'after-change-functions 'message-strip-forbidden-properties nil 'local) (when (eq message-mail-alias-type 'abbrev) (if (fboundp 'mail-abbrevs-setup) (mail-abbrevs-setup) (mail-aliases-setup))) (unless buffer-file-name (message-set-auto-save-file-name)) (unless (buffer-base-buffer) (mm-enable-multibyte)) (set (make-local-variable 'indent-tabs-mode) nil) (mml-mode)) (autoload 'message-mail "message" "\ Start editing a mail message to be sent. OTHER-HEADERS is an alist of header/value pairs." t nil) (autoload 'message-news "message" "\ Start editing a news article to be sent." t nil) (autoload 'message-reply "message" "\ Start editing a reply to the article in the current buffer." t nil) (autoload 'message-wide-reply "message" "\ Make a \"wide\" reply to the message in the current buffer." t nil) (autoload 'message-followup "message" "\ Follow up to the message in the current buffer. If TO-NEWSGROUPS, use that as the new Newsgroups line." t nil) (autoload 'message-cancel-news "message" "\ Cancel an article you posted. If ARG, allow editing of the cancellation message." t nil) (autoload 'message-supersede "message" "\ Start composing a message to supersede the current message. This is done simply by taking the old article and adding a Supersedes header line with the old Message-ID." t nil) (autoload 'message-recover "message" "\ Reread contents of current buffer from its last auto-save file." t nil) (autoload 'message-forward "message" "\ Forward the current message via mail. Optional NEWS will use news to forward instead of mail. Optional DIGEST will use digest to forward." t nil) (autoload 'message-forward-make-body "message" nil nil nil) (autoload 'message-forward-rmail-make-body "message" nil nil nil) (autoload 'message-insinuate-rmail "message" "\ Let RMAIL uses message to forward." t nil) (autoload 'message-resend "message" "\ Resend the current article to ADDRESS." t nil) (autoload 'message-bounce "message" "\ Re-mail the current message. This only makes sense if the current message is a bounce message that contains some mail you have written which has been bounced back to you." t nil) (autoload 'message-mail-other-window "message" "\ Like `message-mail' command, but display mail buffer in another window." t nil) (autoload 'message-mail-other-frame "message" "\ Like `message-mail' command, but display mail buffer in another frame." t nil) (autoload 'message-news-other-window "message" "\ Start editing a news article to be sent." t nil) (autoload 'message-news-other-frame "message" "\ Start editing a news article to be sent." t nil) (autoload 'bold-region "message" "\ Bold all nonblank characters in the region. Works by overstriking characters. Called from program, takes two arguments START and END which specify the range to operate on." t nil) (autoload 'unbold-region "message" "\ Remove all boldness (overstruck characters) in the region. Called from program, takes two arguments START and END which specify the range to operate on." t nil) ;;;*** ;;;### (autoloads (mm-inline-external-body) "mm-extern" "gnus/mm-extern.el") (autoload 'mm-inline-external-body "mm-extern" "\ Show the external-body part of HANDLE. This function replaces the buffer of HANDLE with a buffer contains the entire message. If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing." nil nil) ;;;*** ;;;### (autoloads (mm-inline-partial) "mm-partial" "gnus/mm-partial.el") (autoload 'mm-inline-partial "mm-partial" "\ Show the partial part of HANDLE. This function replaces the buffer of HANDLE with a buffer contains the entire message. If NO-DISPLAY is nil, display it. Otherwise, do nothing after replacing." nil nil) ;;;*** ;;;### (autoloads (mm-uu-dissect) "mm-uu" "gnus/mm-uu.el") (autoload 'mm-uu-dissect "mm-uu" "\ Dissect the current buffer and return a list of uu handles." nil nil) ;;;*** ;;;### (autoloads (mml1991-sign mml1991-encrypt) "mml1991" "gnus/mml1991.el") (autoload 'mml1991-encrypt "mml1991" nil nil nil) (autoload 'mml1991-sign "mml1991" nil nil nil) ;;;*** ;;;### (autoloads (mml2015-self-encrypt mml2015-sign mml2015-encrypt mml2015-verify-test mml2015-verify mml2015-decrypt-test mml2015-decrypt) "mml2015" "gnus/mml2015.el") (autoload 'mml2015-decrypt "mml2015" nil nil nil) (autoload 'mml2015-decrypt-test "mml2015" nil nil nil) (autoload 'mml2015-verify "mml2015" nil nil nil) (autoload 'mml2015-verify-test "mml2015" nil nil nil) (autoload 'mml2015-encrypt "mml2015" nil nil nil) (autoload 'mml2015-sign "mml2015" nil nil nil) (autoload 'mml2015-self-encrypt "mml2015" nil nil nil) ;;;*** ;;;### (autoloads (nndiary-generate-nov-databases) "nndiary" "gnus/nndiary.el") (autoload 'nndiary-generate-nov-databases "nndiary" "\ Generate NOV databases in all nndiary directories." t nil) ;;;*** ;;;### (autoloads (nndoc-add-type) "nndoc" "gnus/nndoc.el") (autoload 'nndoc-add-type "nndoc" "\ Add document DEFINITION to the list of nndoc document definitions. If POSITION is nil or `last', the definition will be added as the last checked definition, if t or `first', add as the first definition, and if any other symbol, add after that symbol in the alist." nil nil) ;;;*** ;;;### (autoloads (nnfolder-generate-active-file) "nnfolder" "gnus/nnfolder.el") (autoload 'nnfolder-generate-active-file "nnfolder" "\ Look for mbox folders in the nnfolder directory and make them into groups. This command does not work if you use short group names." t nil) ;;;*** ;;;### (autoloads (nnkiboze-generate-groups) "nnkiboze" "gnus/nnkiboze.el") (autoload 'nnkiboze-generate-groups "nnkiboze" "\ \"Usage: emacs -batch -l nnkiboze -f nnkiboze-generate-groups\". Finds out what articles are to be part of the nnkiboze groups." t nil) ;;;*** ;;;### (autoloads (nnml-generate-nov-databases) "nnml" "gnus/nnml.el") (autoload 'nnml-generate-nov-databases "nnml" "\ Generate NOV databases in all nnml directories." t nil) ;;;*** ;;;### (autoloads (nnsoup-revert-variables nnsoup-set-variables nnsoup-pack-replies) "nnsoup" "gnus/nnsoup.el") (autoload 'nnsoup-pack-replies "nnsoup" "\ Make an outbound package of SOUP replies." t nil) (autoload 'nnsoup-set-variables "nnsoup" "\ Use the SOUP methods for posting news and mailing mail." t nil) (autoload 'nnsoup-revert-variables "nnsoup" "\ Revert posting and mailing methods to the standard Emacs methods." t nil) ;;;*** ;;;### (autoloads (gnus-score-mode) "score-mode" "gnus/score-mode.el") (autoload 'gnus-score-mode "score-mode" "\ Mode for editing Gnus score files. This mode is an extended emacs-lisp mode. \\{gnus-score-mode-map}" t nil) ;;;*** ;;;### (autoloads nil "sieve-mode" "gnus/sieve-mode.el") (define-derived-mode sieve-mode c-mode "Sieve" "Major mode for editing Sieve code.\nThis is much like C mode except for the syntax of comments. Its keymap\ninherits from C mode's and it has the same variables for customizing\nindentation. It has its own abbrev table and its own syntax table.\n\nTurning on Sieve mode runs `sieve-mode-hook'." (set (make-local-variable 'paragraph-start) (concat "$\\|" page-delimiter)) (set (make-local-variable 'paragraph-separate) paragraph-start) (set (make-local-variable 'comment-start) "#") (set (make-local-variable 'comment-end) "") (set (make-local-variable 'comment-start-skip) "#+ *") (unless (featurep 'xemacs) (set (make-local-variable 'font-lock-defaults) '(sieve-font-lock-keywords nil nil ((?_ . "w"))))) (easy-menu-add-item nil nil sieve-mode-menu)) ;;;*** ;;;### (autoloads (sieve-upload sieve-manage) "sieve" "gnus/sieve.el") (autoload 'sieve-manage "sieve" nil t nil) (autoload 'sieve-upload "sieve" nil t nil) ;;;*** ;;;### (autoloads (smiley-region) "smiley" "gnus/smiley.el") (autoload 'smiley-region "smiley" "\ Replace in the region `smiley-regexp-alist' matches with corresponding images. A list of images is returned." t nil) ;;;*** ;;;### (autoloads (safe-date-to-time time-to-days time-to-day-in-year date-leap-year-p days-between date-to-day time-add time-subtract time-since days-to-time time-less-p seconds-to-time date-to-time) "time-date" "gnus/time-date.el") (autoload 'date-to-time "time-date" "\ Parse a string that represents a date-time and return a time value." nil nil) (autoload 'seconds-to-time "time-date" "\ Convert SECONDS (a floating point number) to a time value." nil nil) (autoload 'time-less-p "time-date" "\ Say whether time value T1 is less than time value T2." nil nil) (autoload 'days-to-time "time-date" "\ Convert DAYS into a time value." nil nil) (autoload 'time-since "time-date" "\ Return the time elapsed since TIME. TIME should be either a time value or a date-time string." nil nil) (defalias 'subtract-time 'time-subtract) (autoload 'time-subtract "time-date" "\ Subtract two time values. Return the difference in the format of a time value." nil nil) (autoload 'time-add "time-date" "\ Add two time values. One should represent a time difference." nil nil) (autoload 'date-to-day "time-date" "\ Return the number of days between year 1 and DATE. DATE should be a date-time string." nil nil) (autoload 'days-between "time-date" "\ Return the number of days between DATE1 and DATE2. DATE1 and DATE2 should be date-time strings." nil nil) (autoload 'date-leap-year-p "time-date" "\ Return t if YEAR is a leap year." nil nil) (autoload 'time-to-day-in-year "time-date" "\ Return the day number within the year of the date month/day/year." nil nil) (autoload 'time-to-days "time-date" "\ The number of days between the Gregorian date 0001-12-31bce and TIME. TIME should be a time value. The Gregorian date Sunday, December 31, 1bce is imaginary." nil nil) (autoload 'safe-date-to-time "time-date" "\ Parse a string that represents a date-time and return a time value. If DATE is malformed, return a time value of zeros." nil nil) ;;;*** ;;;### (autoloads (uudecode-decode-region uudecode-decode-region-internal uudecode-decode-region-external) "uudecode" "gnus/uudecode.el") (autoload 'uudecode-decode-region-external "uudecode" "\ Uudecode region between START and END using external program. If FILE-NAME is non-nil, save the result to FILE-NAME. The program used is specified by `uudecode-decoder-program'." t nil) (autoload 'uudecode-decode-region-internal "uudecode" "\ Uudecode region between START and END without using an external program. If FILE-NAME is non-nil, save the result to FILE-NAME." t nil) (autoload 'uudecode-decode-region "uudecode" "\ Uudecode region between START and END. If FILE-NAME is non-nil, save the result to FILE-NAME." nil nil) ;;;*** (provide 'gnus-autoloads) --=-=-= I guess I don't really understand enough about autoloads - I notice three references to message-mode-map in the autoloads file; is any of the 3 of them sufficient to cause message-mode-map to be non-nil so that I don't get the default keymap as specified in message.el? What can I do about this? Thanks in advance, vin --=-=-=--