(sc-mail-field): Use assoc-string.

(sc-get-address): Simplify regexps.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2dac5591362972d01c8b00bab968976dabdfccf..95ab41b8a862946bd7085cbe6ba8bc5305cee357 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-03-28  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mail/supercite.el (sc-mail-field): Use assoc-string.
+       (sc-get-address): Simplify regexps.
+
+       * files.el (minibuffer-with-setup-hook): New macro.
+       (find-file-read-args): Use it to avoid let-binding
+       minibuffer-with-setup-hook (which breaks turning on/off
+       file-name-shadow-mode while in the prompt).
+
+       * complete.el (PC-read-include-file-name-internal): Use test-completion.
+
 2005-03-28  Luc Teirlinck  <teirllm@auburn.edu>
 
        * font-lock.el: Bind `font-lock-fontify-block' to M-o M-o.

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index 3f24c952d89f67da97c7b063096893b62e0f7aae..371bb90b9cfb6ece1bba2359c6d309c55b84246c 100644 (file)
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -838,7 +838,7 @@ error occurs."
   "Return the mail header field value associated with FIELD.
 If there was no mail header with FIELD as its key, return the value of
 `sc-mumble'.  FIELD is case insensitive."
-  (or (cdr (assoc (downcase field) sc-mail-info)) sc-mumble))
+  (or (cdr (assoc-string field sc-mail-info 'case-fold)) sc-mumble))
 
 (defun sc-mail-field-query (arg)
   "View the value of a mail field.
@@ -916,8 +916,8 @@ Match addresses of the style ``<name[stuff]>.''"
   "Get the full email address path from FROM.
 AUTHOR is the author's name (which is removed from the address)."
   (let ((eos (length from)))
-    (if (string-match (concat "\\(^\\|^\"\\)" author
-                             "\\(\\s +\\|\"\\s +\\)") from 0)
+    (if (string-match (concat "\\`\"?" (regexp-quote author)
+                             "\"?\\s +") from 0)
        (let ((address (substring from (match-end 0) eos)))
          (if (and (= (aref address 0) ?<)
                   (= (aref address (1- (length address))) ?>))
@@ -2054,5 +2054,5 @@ more information.  Info node `(SC)Top'."
 (provide 'supercite)
 (run-hooks 'sc-load-hook)
 
-;;; arch-tag: a5d5bfa6-3bd5-4414-8c65-0afc83e45cd3
+;; arch-tag: a5d5bfa6-3bd5-4414-8c65-0afc83e45cd3
 ;;; supercite.el ends here