Mercurial > emacs
view lisp/mail/rmailkwd.el @ 105829:328150f0cf76
* url-util.el (url-insert-entities-in-string):
* url-nfs.el (url-nfs-unescape):
* url-ldap.el (url-ldap):
* url-imap.el (url-imap):
* url-cid.el (url-cid-gnus, url-cid): Use with-current-buffer.
* erc.el (erc-display-line-1, erc-process-away):
* erc-truncate.el (erc-truncate-buffer-to-size):
Use with-current-buffer.
* term/ns-win.el (ns-scroll-bar-move, ns-face-at-pos):
* play/mpuz.el (mpuz-create-buffer):
* play/landmark.el (lm-prompt-for-move, lm-print-wts, lm-print-smell)
(lm-print-y,s,noise, lm-print-w0, lm-init):
* play/gomoku.el (gomoku-prompt-for-move):
* play/fortune.el (fortune-in-buffer):
* play/dissociate.el (dissociated-press):
* play/decipher.el (decipher-adjacency-list, decipher-display-regexp)
(decipher-analyze-buffer, decipher-stats-buffer,decipher-stats-buffer):
* mail/supercite.el (sc-eref-show):
* mail/smtpmail.el (smtpmail-send-it):
* mail/rmailsum.el (rmail-summary-next-labeled-message)
(rmail-summary-previous-labeled-message, rmail-summary-wipe)
(rmail-summary-undelete-many, rmail-summary-rmail-update)
(rmail-summary-goto-msg, rmail-summary-expunge)
(rmail-summary-get-new-mail, rmail-summary-search-backward)
(rmail-summary-add-label, rmail-summary-output-menu)
(rmail-summary-output-body):
* mail/rfc822.el (rfc822-addresses):
* mail/reporter.el (reporter-dump-variable, reporter-dump-state):
* mail/mailpost.el (post-mail-send-it):
* mail/hashcash.el (hashcash-generate-payment):
* mail/feedmail.el (feedmail-run-the-queue)
(feedmail-queue-send-edit-prompt-help-first)
(feedmail-send-it-immediately, feedmail-give-it-to-buffer-eater)
(feedmail-deduce-address-list):
* eshell/esh-ext.el (eshell-remote-command):
* eshell/em-unix.el (eshell-occur-mode-mouse-goto):
* emulation/viper-util.el (viper-glob-unix-files, viper-save-setting)
(viper-wildcard-to-regexp, viper-glob-mswindows-files)
(viper-save-string-in-file, viper-valid-marker):
* emulation/viper-keym.el (viper-toggle-key):
* emulation/viper-ex.el (ex-expand-filsyms, viper-get-ex-file)
(ex-edit, ex-global, ex-mark, ex-next-related-buffer, ex-quit)
(ex-get-inline-cmd-args, ex-tag, ex-command, ex-compile):
* emulation/viper-cmd.el (viper-exec-form-in-vi)
(viper-exec-form-in-emacs, viper-brac-function):
* emulation/viper.el (viper-delocalize-var):
* emulation/vip.el (vip-mode, vip-get-ex-token, vip-ex, vip-get-ex-pat)
(vip-get-ex-command, vip-get-ex-opt-gc, vip-get-ex-buffer)
(vip-get-ex-count, vip-get-ex-file, ex-edit, ex-global, ex-mark)
(ex-map, ex-unmap, ex-quit, ex-read, ex-tag, ex-command):
* emulation/vi.el (vi-switch-mode, vi-ex-cmd):
* emulation/edt.el (edt-electric-helpify):
* emulation/cua-rect.el (cua--rectangle-aux-replace):
* emulation/cua-gmrk.el (cua--insert-at-global-mark)
(cua--delete-at-global-mark, cua--copy-rectangle-to-global-mark)
(cua-indent-to-global-mark-column):
* calendar/diary-lib.el (calendar-mark-1):
* calendar/cal-hebrew.el (calendar-hebrew-mark-date-pattern):
Use with-current-buffer.
* emulation/viper.el (viper-delocalize-var): Use dolist.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 03 Nov 2009 02:04:29 +0000 |
parents | 6a35503cf20b |
children | 1d1d5d9bd884 |
line wrap: on
line source
;;; rmailkwd.el --- part of the "RMAIL" mail reader for Emacs ;; Copyright (C) 1985, 1988, 1994, 2001, 2002, 2003, 2004, 2005, 2006, ;; 2007, 2008, 2009 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;;; Code: (require 'rmail) ;; Global to all RMAIL buffers. It exists for the sake of completion. ;; It is better to use strings with the label functions and let them ;; worry about making the label. (defvar rmail-label-obarray (make-vector 47 0) "Obarray of labels used by Rmail. `rmail-read-label' uses this to offer completion.") ;; Initialize with the standard labels. (mapc (lambda (s) (intern (cadr s) rmail-label-obarray)) rmail-attr-array) (defun rmail-make-label (s) "Intern string S as a downcased symbol in `rmail-label-obarray'." (intern (downcase s) rmail-label-obarray)) ;;;###autoload (defun rmail-add-label (label) "Add LABEL to labels associated with current RMAIL message. Completes (see `rmail-read-label') over known labels when reading. LABEL may be a symbol or string. Only one label is allowed." (interactive (list (rmail-read-label "Add label"))) (rmail-set-label label t)) ;;;###autoload (defun rmail-kill-label (label) "Remove LABEL from labels associated with current RMAIL message. Completes (see `rmail-read-label') over known labels when reading. LABEL may be a symbol or string. Only one label is allowed." (interactive (list (rmail-read-label "Remove label"))) (rmail-set-label label nil)) ;;;###autoload (defun rmail-read-label (prompt) "Read a label with completion, prompting with PROMPT. Completions are chosen from `rmail-label-obarray'. The default is `rmail-last-label', if that is non-nil. Updates `rmail-last-label' according to the choice made, and returns a symbol." (let* ((old nil) (result (progn ;; If the summary exists, we've already read all the ;; existing labels. If not, read the ones in this message. (or (eq major-mode 'rmail-summary-mode) (rmail-summary-exists) (and (setq old (rmail-get-keywords)) (mapc 'rmail-make-label (split-string old ", ")))) (completing-read (concat prompt (if rmail-last-label (concat " (default " (symbol-name rmail-last-label) "): ") ": ")) rmail-label-obarray nil nil)))) (if (string= result "") rmail-last-label (setq rmail-last-label (rmail-make-label result))))) (declare-function rmail-summary-update-line "rmailsum" (n)) (defun rmail-set-label (label state &optional msg) "Set LABEL as present or absent according to STATE in message MSG. LABEL may be a symbol or string." (or (stringp label) (setq label (symbol-name label))) (if (string-match "," label) (error "More than one label specified")) (with-current-buffer rmail-buffer (rmail-maybe-set-message-counters) (or msg (setq msg rmail-current-message)) ;; Force recalculation of summary for this message. (aset rmail-summary-vector (1- msg) nil) (let (attr-index) ;; Is this label an attribute? (dotimes (i (length rmail-attr-array)) (if (string= (cadr (aref rmail-attr-array i)) label) (setq attr-index i))) (if attr-index ;; If so, set it as an attribute. (rmail-set-attribute attr-index state msg) ;; Is this keyword already present in msg's keyword list? (let* ((header (rmail-get-keywords msg)) (regexp (concat ", " (regexp-quote label) ",")) (present (not (null (string-match regexp (concat ", " header ",")))))) ;; If current state is not correct, (unless (eq present state) ;; either add it or delete it. (rmail-set-header rmail-keyword-header msg (if state ;; Add this keyword at the end. (if (and header (not (string= header ""))) (concat header ", " label) label) ;; Delete this keyword. (let ((before (substring header 0 (max 0 (- (match-beginning 0) 2)))) (after (substring header (min (length header) (- (match-end 0) 1))))) (cond ((string= before "") ;; If before and after both empty, delete the header. (unless (string= after "") after)) ((string= after "") before) (t (concat before ", " after)))))))))) (if (rmail-summary-exists) (rmail-select-summary (rmail-summary-update-line msg))) (if (= msg rmail-current-message) (rmail-display-labels)))) ;; Motion on messages with keywords. ;;;###autoload (defun rmail-previous-labeled-message (n labels) "Show previous message with one of the labels LABELS. LABELS should be a comma-separated list of label names. If LABELS is empty, the last set of labels specified is used. With prefix argument N moves backward N messages with these labels." (interactive "p\nsMove to previous msg with labels: ") (rmail-next-labeled-message (- n) labels)) (declare-function mail-comma-list-regexp "mail-utils" (labels)) ;;;###autoload (defun rmail-next-labeled-message (n labels) "Show next message with one of the labels LABELS. LABELS should be a comma-separated list of label names. If LABELS is empty, the last set of labels specified is used. With prefix argument N moves forward N messages with these labels." ;; FIXME show the default in the prompt. (interactive "p\nsMove to next msg with labels: ") (if (string= labels "") (setq labels rmail-last-multi-labels)) (or labels (error "No labels to find have been specified previously")) (set-buffer rmail-buffer) (setq rmail-last-multi-labels labels) (rmail-maybe-set-message-counters) (let ((lastwin rmail-current-message) (current rmail-current-message) (regexp (concat " \\(" (mail-comma-list-regexp labels) "\\)\\(,\\|\\'\\)"))) (while (and (> n 0) (< current rmail-total-messages)) (setq current (1+ current)) (if (string-match regexp (rmail-get-labels current)) (setq lastwin current n (1- n)))) (while (and (< n 0) (> current 1)) (setq current (1- current)) (if (string-match regexp (rmail-get-labels current)) (setq lastwin current n (1+ n)))) (if (< n 0) (error "No previous message with labels %s" labels) (if (> n 0) (error "No following message with labels %s" labels) (rmail-show-message-1 lastwin))))) (provide 'rmailkwd) ;; Local Variables: ;; generated-autoload-file: "rmail.el" ;; End: ;; arch-tag: 1149979c-8e47-4333-9629-cf3dc887a6a7 ;;; rmailkwd.el ends here