[Emacs-diffs] Changes to emacs/lisp/mail/supercite.el

[Stefan Monnier]

Index: emacs/lisp/mail/supercite.el
diff -c emacs/lisp/mail/supercite.el:1.41 emacs/lisp/mail/supercite.el:1.42
*** emacs/lisp/mail/supercite.el:1.41   Fri Mar 25 10:00:37 2005
--- emacs/lisp/mail/supercite.el        Mon Mar 28 20:02:54 2005
***************
*** 838,844 ****
    "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))
  
  (defun sc-mail-field-query (arg)
    "View the value of a mail field.
--- 838,844 ----
    "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-string field sc-mail-info 'case-fold)) sc-mumble))
  
  (defun sc-mail-field-query (arg)
    "View the value of a mail field.
***************
*** 916,923 ****
    "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)
        (let ((address (substring from (match-end 0) eos)))
          (if (and (= (aref address 0) ?<)
                   (= (aref address (1- (length address))) ?>))
--- 916,923 ----
    "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 "\\`\"?" (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,2058 ****
  (provide 'supercite)
  (run-hooks 'sc-load-hook)
  
! ;;; arch-tag: a5d5bfa6-3bd5-4414-8c65-0afc83e45cd3
  ;;; supercite.el ends here
--- 2054,2058 ----
  (provide 'supercite)
  (run-hooks 'sc-load-hook)
  
! ;; arch-tag: a5d5bfa6-3bd5-4414-8c65-0afc83e45cd3
  ;;; supercite.el ends here