On Thursday, July 31, 2003 at 07:23:00, Dan Jacobson wrote:
> >> I wish there was a variable to control when I hit m, instead of
> >> causing To: Blob Dwobbs <[EMAIL PROTECTED]>, it would make just To:
> >> [EMAIL PROTECTED], to be in line with my spartan image.
> 
> Robert> Modify the net field entry to be one of the following 
> Robert>        "[EMAIL PROTECTED] (No realname)"
> Robert> or 
> Robert>        "No realname <[EMAIL PROTECTED]>"
> Robert> instead of just "[EMAIL PROTECTED]".
> 
> I must modify each of the myriad records in the file?  Why can't
> there be a variable to say my recipients all know their own names
> already, don't tack it on?

Well not a new variable, but see your self ... 
this little change might get Waiders OK for a commit ;c) 

Robert

Index: bbdb-com.el
===================================================================
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-com.el,v
retrieving revision 1.167
diff -c -r1.167 bbdb-com.el
*** bbdb-com.el 24 Jul 2003 09:43:17 -0000      1.167
--- bbdb-com.el 6 Aug 2003 10:31:15 -0000
***************
*** 1847,1852 ****
--- 1847,1853 ----
    "*Non-nil means always use full name when sending mail, even if same as net."
    :group 'bbdb
    :type '(choice (const :tag "Disallow redundancy" nil)
+                  (const :tag "Return only the net" 'netonly)
                   (const :tag "Allow redundancy" t)))
  
  ;;;###autoload
***************
*** 1876,1882 ****
          (while (setq i (string-match "[\\\"]" name i))
            (setq name (concat (substring name 0 i) "\\" (substring name i))
                  i (+ i 2))))
!     (cond ((or (null name)
                 (if (not bbdb-dwim-net-address-allow-redundancy)
                     (cond ((and fn ln)
                            (or (string-match
--- 1877,1885 ----
          (while (setq i (string-match "[\\\"]" name i))
            (setq name (concat (substring name 0 i) "\\" (substring name i))
                  i (+ i 2))))
!     (cond ((eq 'netonly bbdb-dwim-net-address-allow-redundancy)
!            net)
!           ((or (null name)
                 (if (not bbdb-dwim-net-address-allow-redundancy)
                     (cond ((and fn ln)
                            (or (string-match



-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/

Reply via email to