← Back to team overview

vm team mailing list archive

[Question #130560]: supercite with vm 7.19 and "lastname, first" citation problem

 

New question #130560 on VM:
https://answers.launchpad.net/vm/+question/130560

Hi all,

I know (or suspect) that this isn't really a VM issue, but since the Supercite mailing list is dead... I figured I'd ask here. 

I'm still running VM 8.1.1 (also tested with 7.19) on Emacs 22 (and Emacs 21), along with supercite 3.1 and I've run into a problem citing when users have their name in the format of:

   "Last, First (Something)" <foo@xxxxxxxxxxxxxx>

The yanked email gets correctly cited, but it brings along the trailing comma, so email looks like:

     Last,>  start of message
     Last,>  more lines

and when I goto fill the paragraph, supercite bombs out and just does a crappy job.  My elisp-fu is *very* weak, so I'm not sure how I'd fix this issue to strip the comma ou by default.

I've got the following in my .emacs file, which is probably ancient legacy supercite stuff, but it's worked for years and years.

(add-hook 'mail-yank-hooks 'sc-cite-original)
	       sc-citation-delimeter ">"
;	       sc-name-filter-alist (cons '("^\"$" . 0) sc-name-filter-alist)
	       sc-header-nuke-list 
	       '("via" "origin" "status" "received" "remailed" "cc" 
		 "sender" "replied"	  "organization" "keywords"
		 "distribution" "xref" "references" "expires"
		 "approved" "summary" "precedence" "subject"
		 "newsgroup[s]?"
		 "\\(followup\\|apparently\\|errors\\|\\(\\(in-\\)?reply\\)?-\\)?to"
		 "x-[a-z0-9-]+" 
		 "[a-z-]*message-id" 
		 "\\(summary-\\)?line[s]" 
		 "\\(\\(return\\|reply\\)-\\)?path" 
		 "\\(posted-\\)?date" 
		 "\\(mail-\\)?from" 
		 "content" 
		 "\\mime-.*" 
		 "content-type" 
		 "content-length")
	       )))

(setq sc-attribs-postselect-hook
      '(lambda()
	 (if (string-match "'s$" attribution) 
	     (setq attribution 
		   (substring attribution 0 (- (length attribution) 2))
		   citation (sc-make-citation attribution))
	   )
	 (if (string-match "^\"" attribution)
	     (setq attribution
		   (substring attribution 1 (length attribution))
		   citation (sc-make-citation attribution))
	   )
	 ))


Thanks for any help you can give me.

John


-- 
You received this question notification because you are a member of VM
development team, which is an answer contact for VM.



Follow ups