mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
* progmodes/cperl-mode.el (compilation-error-regexp-alist): Pacify
byte compiler. (cperl-mode): Use with-no-warnings for setting vc-header-alist. * progmodes/idlwave.el (idlwave-shell-get-path-info) (idlwave-shell-temp-file, idlwave-shell-is-running) (widget-value, comint-dynamic-complete-filename, Info-goto-node): * progmodes/idlw-help.el (idlwave-prepare-structure-tag-completion) (idlwave-all-method-classes, idlwave-all-method-keyword-classes) (idlwave-beginning-of-statement, idlwave-best-rinfo-assoc) (idlwave-class-found-in, idlwave-class-or-superclass-with-tag) (idlwave-completing-read, idlwave-current-routine) (idlwave-downcase-safe, idlwave-entry-find-keyword) (idlwave-expand-keyword, idlwave-find-class-definition) (idlwave-find-inherited-class, idlwave-find-struct-tag) (idlwave-get-buffer-visiting, idlwave-in-quote) (idlwave-make-full-name, idlwave-members-only) (idlwave-popup-select, idlwave-routine-source-file) (idlwave-routines, idlwave-sintern-class) (idlwave-sintern-keyword, idlwave-sintern-method) (idlwave-sintern-routine-or-method) (idlwave-substitute-link-target, idlwave-sys-dir) (idlwave-this-word, idlwave-what-module-find-class) (idlwave-where): * progmodes/idlw-complete-structtag.el (idlwave-shell-buffer): * mail/uce.el (rmail-msg-is-pruned) (rmail-maybe-set-message-counters, rmail-msgbeg, rmail-msgend) (rmail-toggle-header): * mail/sendmail.el (dired-view-file, dired-get-filename): * mail/rmailkwd.el (rmail-maybe-set-message-counters) (rmail-display-labels, rmail-msgbeg) (rmail-set-message-deleted-p, rmail-message-labels-p) (rmail-show-message, mail-comma-list-regexp) (mail-parse-comma-list): * mail/rmail.el (rmail-spam-filter, rmail-summary-goto-msg) (rmail-summary-mark-undeleted, rmail-summary-mark-deleted) (rfc822-addresses, mail-abbrev-make-syntax-table) (mail-sendmail-delimit-header, mail-header-end): * mail/hashcash.el (message-narrow-to-headers-or-head) (message-fetch-field, message-goto-eoh) (message-narrow-to-headers): * vc.el (view-mode-exit): Declare as functions. * mail/vms-pmail.el: * vmsproc.el: * vms-patch.el: Don't byte compile these files, they don't work. * Makefile.in (SOME_MACHINE_LISP): Remove VMS files, they are not compiled anymore.
This commit is contained in:
parent
d3b913571a
commit
73e72da43b
17 changed files with 146 additions and 4 deletions
|
|
@ -126,6 +126,11 @@ For example, you may want to set this to '(\"-Z2\") to reduce header length."
|
|||
(concat (match-string 1 addr) (match-string 2 addr))
|
||||
addr))
|
||||
|
||||
(declare-function message-narrow-to-headers-or-head "message" ())
|
||||
(declare-function message-fetch-field "message" (header &optional not-all))
|
||||
(declare-function message-goto-eoh "message" ())
|
||||
(declare-function message-narrow-to-headers "message" ())
|
||||
|
||||
(defun hashcash-token-substring ()
|
||||
(save-excursion
|
||||
(let ((token ""))
|
||||
|
|
|
|||
|
|
@ -1519,6 +1519,15 @@ original copy."
|
|||
|
||||
;;;; *** Rmail input ***
|
||||
|
||||
(declare-function rmail-spam-filter "rmail-spam-filter" (msg))
|
||||
(declare-function rmail-summary-goto-msg "rmailsum" (&optional n nowarn skip-rmail))
|
||||
(declare-function rmail-summary-mark-undeleted "rmailsum" (n))
|
||||
(declare-function rmail-summary-mark-deleted "rmailsum" (&optional n undel))
|
||||
(declare-function rfc822-addresses "rfc822" (header-text))
|
||||
(declare-function mail-abbrev-make-syntax-table "mailabbrev.el" ())
|
||||
(declare-function mail-sendmail-delimit-header "sendmail" ())
|
||||
(declare-function mail-header-end "sendmail" ())
|
||||
|
||||
;; RLK feature not added in this version:
|
||||
;; argument specifies inbox file or files in various ways.
|
||||
|
||||
|
|
|
|||
|
|
@ -86,6 +86,15 @@ Completion is performed over known labels when reading."
|
|||
rmail-last-label
|
||||
(setq rmail-last-label (rmail-make-label result t))))))
|
||||
|
||||
(declare-function rmail-maybe-set-message-counters "rmail" ())
|
||||
(declare-function rmail-display-labels "rmail" ())
|
||||
(declare-function rmail-msgbeg "rmail" (n))
|
||||
(declare-function rmail-set-message-deleted-p "rmail" (n state))
|
||||
(declare-function rmail-message-labels-p "rmail" (msg labels))
|
||||
(declare-function rmail-show-message "rmail" (&optional n no-summary))
|
||||
(declare-function mail-comma-list-regexp "mail-utils" (labels))
|
||||
(declare-function mail-parse-comma-list "mail-utils.el" ())
|
||||
|
||||
(defun rmail-set-label (l state &optional n)
|
||||
(with-current-buffer rmail-buffer
|
||||
(rmail-maybe-set-message-counters)
|
||||
|
|
|
|||
|
|
@ -1323,6 +1323,13 @@ argument says to read a file name and use that file as the inbox."
|
|||
(end-of-buffer))
|
||||
(forward-line -1))
|
||||
|
||||
(declare-function rmail-abort-edit "rmailedit" ())
|
||||
(declare-function rmail-cease-edit "rmailedit"())
|
||||
(declare-function rmail-set-label "rmailkwd" (l state &optional n))
|
||||
(declare-function rmail-output-read-file-name "rmailout" ())
|
||||
(declare-function rmail-output-read-rmail-file-name "rmailout" ())
|
||||
(declare-function mail-send-and-exit "sendmail" (&optional arg))
|
||||
|
||||
(defvar rmail-summary-edit-map nil)
|
||||
(if rmail-summary-edit-map
|
||||
nil
|
||||
|
|
|
|||
|
|
@ -1744,6 +1744,9 @@ The seventh argument ACTIONS is a list of actions to take
|
|||
(message "Auto save file for draft message exists; consider M-x mail-recover"))
|
||||
initialized))
|
||||
|
||||
(declare-function dired-view-file "dired" ())
|
||||
(declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))
|
||||
|
||||
(defun mail-recover-1 ()
|
||||
"Pop up a list of auto-saved draft messages so you can recover one of them."
|
||||
(interactive)
|
||||
|
|
|
|||
|
|
@ -218,6 +218,12 @@ These are mostly meant for headers that prevent delivery errors reporting."
|
|||
:group 'uce)
|
||||
|
||||
(declare-function mail-strip-quoted-names "mail-utils" (address))
|
||||
(declare-function rmail-msg-is-pruned "rmail" ())
|
||||
(declare-function rmail-maybe-set-message-counters "rmail" ())
|
||||
(declare-function rmail-msgbeg "rmail" (n))
|
||||
(declare-function rmail-msgend "rmail" (n))
|
||||
(declare-function rmail-toggle-header "rmail" (&optional arg))
|
||||
|
||||
|
||||
(defun uce-reply-to-uce (&optional ignored)
|
||||
"Send reply to UCE in Rmail.
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
;; -*- no-byte-compile: t -*-
|
||||
;;; vms-pmail.el --- use Emacs as the editor within VMS mail
|
||||
|
||||
;; Copyright (C) 1992, 2001, 2002, 2003, 2004, 2005,
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue