Mercurial > emacs
comparison lisp/mail/hashcash.el @ 86503:2c08ad76fc1f
* 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.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Tue, 27 Nov 2007 06:57:07 +0000 |
parents | f3c5045fc04b |
children | b37f01064ecf |
comparison
equal
deleted
inserted
replaced
86502:1f48ff31771c | 86503:2c08ad76fc1f |
---|---|
123 (defun hashcash-strip-quoted-names (addr) | 123 (defun hashcash-strip-quoted-names (addr) |
124 (setq addr (mail-strip-quoted-names addr)) | 124 (setq addr (mail-strip-quoted-names addr)) |
125 (if (and addr (string-match "\\`\\([^+@]+\\)\\+[^@]*\\(@.+\\)" addr)) | 125 (if (and addr (string-match "\\`\\([^+@]+\\)\\+[^@]*\\(@.+\\)" addr)) |
126 (concat (match-string 1 addr) (match-string 2 addr)) | 126 (concat (match-string 1 addr) (match-string 2 addr)) |
127 addr)) | 127 addr)) |
128 | |
129 (declare-function message-narrow-to-headers-or-head "message" ()) | |
130 (declare-function message-fetch-field "message" (header &optional not-all)) | |
131 (declare-function message-goto-eoh "message" ()) | |
132 (declare-function message-narrow-to-headers "message" ()) | |
128 | 133 |
129 (defun hashcash-token-substring () | 134 (defun hashcash-token-substring () |
130 (save-excursion | 135 (save-excursion |
131 (let ((token "")) | 136 (let ((token "")) |
132 (loop | 137 (loop |