emacs: lisp/mail/mail-extr.el comparison

comparison lisp/mail/mail-extr.el @ 111423:e0d9a22430d9

Silence mail-extr compilation. * lisp/mail/mail-extr.el (mail-extract-address-components): Give dynamic local variables `cbeg' and `cend' a prefix. (mail-extr-voodoo): Update for above name change.

author	Glenn Morris <rgm@gnu.org>
date	Sat, 06 Nov 2010 12:28:44 -0700
parents	280c8ae2476d
children	417b1e4d63cd

comparison

equal deleted inserted replaced

-:2eee976277c5
+:e0d9a22430d9
 ;;; mail-extr.el --- extract full name and address from RFC 822 mail header -*- coding: utf-8 -*-
 ;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;;   2005, 2006, 2007, 2008, 2009, 2010
+;;   Free Software Foundation, Inc.
 ;; Author: Joe Wells <jbw@cs.bu.edu>
 ;; Maintainer: FSF
 ;; Keywords: mail
 ;; Package: mail-utils
 ;;
 ;; The main function to grind addresses
 ;;
 (defvar disable-initial-guessing-flag)	; dynamic assignment
-(defvar cbeg)				; dynamic assignment
+(defvar mailextr-cbeg)			; dynamic assignment
-(defvar cend)				; dynamic assignment
+(defvar mailextr-cend)			; dynamic assignment
 (defvar mail-extr-all-top-level-domains) ; Defined below.
 ;;;###autoload
 (defun mail-extract-address-components (address &optional all)
 "Given an RFC-822 address ADDRESS, extract full name and canonical address.
 	      <-pos >-pos @-pos colon-pos comma-pos !-pos %-pos \;-pos
 	      group-:-pos group-\;-pos route-addr-:-pos
 	      record-pos-symbol
 	      first-real-pos last-real-pos
 	      phrase-beg phrase-end
-	      cbeg cend			; dynamically set from -voodoo
+	      ;; Dynamically set in mail-extr-voodoo.
+	      mailextr-cbeg mailextr-cend
 	      quote-beg quote-end
 	      atom-beg atom-end
 	      mbox-beg mbox-end
 	      \.-ends-name
 	      temp
 	    (cond
 	     ;; comment
 	     ((eq char ?\()
 	      (set-syntax-table mail-extr-address-comment-syntax-table)
 	      ;; only record the first non-empty comment's position
-	      (if (and (not cbeg)
+	      (if (and (not mailextr-cbeg)
 		       (save-excursion
 			 (forward-char 1)
 			 (mail-extr-skip-whitespace-forward)
 			 (not (eq ?\) (char-after (point))))))
-		  (setq cbeg (point)))
+		  (setq mailextr-cbeg (point)))
 	      ;; TODO: don't record if unbalanced
 	      (or (mail-extr-safe-move-sexp 1)
 		  (forward-char 1))
 	      (set-syntax-table mail-extr-address-syntax-table)
-	      (if (and cbeg
+	      (if (and mailextr-cbeg
-		       (not cend))
+		       (not mailextr-cend))
-		  (setq cend (point))))
+		  (setq mailextr-cend (point))))
 	     ;; quoted text
 	     ((eq char ?\")
 	      ;; only record the first non-empty quote's position
 	      (if (and (not quote-beg)
 		       (save-excursion
 	    (mail-extr-nuke-outside-range comma-pos group-:-pos group-\;-pos t)
 	    (and last-real-pos
 		 (> last-real-pos (1+ group-\;-pos))
 		 (setq last-real-pos (1+ group-\;-pos)))
 	    ;; *** This may be wrong:
-	    (and cend
+	    (and mailextr-cend
-		 (> cend group-\;-pos)
+		 (> mailextr-cend group-\;-pos)
-		 (setq cend nil
+		 (setq mailextr-cend nil
-		       cbeg nil))
+		       mailextr-cbeg nil))
 	    (and quote-end
 		 (> quote-end group-\;-pos)
 		 (setq quote-end nil
 		       quote-beg nil))
 	    ;; This was both wrong and unnecessary:
 		;; Example: First Last <fml@foo.bar.dom>
 		(phrase-beg
 		 (narrow-to-region phrase-beg phrase-end))
 		;; Example: fml@foo.bar.dom (First M. Last)
-		(cbeg
+		(mailextr-cbeg
-		 (narrow-to-region (1+ cbeg) (1- cend))
+		 (narrow-to-region (1+ mailextr-cbeg) (1- mailextr-cend))
 		 (mail-extr-undo-backslash-quoting (point-min) (point-max))
 		 ;; Deal with spacing problems
 		 (goto-char (point-min))
 ;;;	     (cond ((not (search-forward " " nil t))
 		     (re-search-forward mail-extr-disable-voodoo nil t))))
 (let ((word-count 0)
 	  (case-fold-search nil)
 	  mixed-case-flag lower-case-flag ;;upper-case-flag
 	  suffix-flag last-name-comma-flag
-	  ;;cbeg cend
 	  initial
 	  begin-again-flag
 	  drop-this-word-if-trailing-flag
 	  drop-last-word-if-trailing-flag
 	  word-found-flag
 	   ;;((eq ?, (following-char))
 	   ;; (setq name-done-flag t))
 	   ;; Delete parenthesized/quoted comment/nickname
 	   ((memq (following-char) '(?\( ?\{ ?\[ ?\" ?\' ?\`))
-	    (setq cbeg (point))
+	    (setq mailextr-cbeg (point))
 	    (set-syntax-table mail-extr-address-text-comment-syntax-table)
 	    (cond ((memq (following-char) '(?\' ?\`))
 		   (or (search-forward "'" nil t
 				       (if (eq ?\' (following-char)) 2 1))
 		       (delete-char 1)))
 		  (t
 		   (or (mail-extr-safe-move-sexp 1)
 		       (goto-char (point-max)))))
 	    (set-syntax-table mail-extr-address-text-syntax-table)
-	    (setq cend (point))
+	    (setq mailextr-cend (point))
 	    (cond
 	     ;; Handle case of entire name being quoted
 	     ((and (eq word-count 0)
 		   (looking-at " *\\'")
-		   (>= (- cend cbeg) 2))
+		   (>= (- mailextr-cend mailextr-cbeg) 2))
-	      (narrow-to-region (1+ cbeg) (1- cend))
+	      (narrow-to-region (1+ mailextr-cbeg) (1- mailextr-cend))
 	      (goto-char (point-min)))
 	     (t
 	      ;; Handle case of quoted initial
-	      (if (and (or (= 3 (- cend cbeg))
+	      (if (and (or (= 3 (- mailextr-cend mailextr-cbeg))
-			   (and (= 4 (- cend cbeg))
+			   (and (= 4 (- mailextr-cend mailextr-cbeg))
-				(eq ?. (char-after (+ 2 cbeg)))))
+				(eq ?. (char-after (+ 2 mailextr-cbeg)))))
 		       (not (looking-at " *\\'")))
-		  (setq initial (char-after (1+ cbeg)))
+		  (setq initial (char-after (1+ mailextr-cbeg)))
 		(setq initial nil))
-	      (delete-region cbeg cend)
+	      (delete-region mailextr-cbeg mailextr-cend)
 	      (if initial
 		  (insert initial ". ")))))
 	   ;; Handle *Stupid* VMS date stamps
 	   ((looking-at mail-extr-stupid-vms-date-stamp-pattern)
 ;			      all))))
 (provide 'mail-extr)
-;; arch-tag: 7785fade-1073-4ed6-b4f6-28db34a7982d
 ;;; mail-extr.el ends here

Mercurial > emacs

comparison lisp/mail/mail-extr.el @ 111423:e0d9a22430d9