Hello Rick, I think the quote macro is "on topic" on this list... Here is the quote macro I use usually. It is not perfect, but it works. //Quote a selected text //This macro assumes that there are two user defined rulers in the Style //menu: //1. Text: a ruler without any indent/outdent and full at the both // sides of the margin //2. Citation: a ruler with the first line indent and left side margin // of the same width (width of two or three characters...) // if (SelectStart == SelectEnd) GoTo pleaseSelect Find/Replace "\([!-~]\)\r\([!-~]\)" "\1\s\2" "-wgst-S" //Find/Replace ":<[^ $B!%!#!)!* (B\r]\r:>[^ $B!! (B\r]" "" "-wgst-S" //This line is for Japanese only. The characters will be garbled //in non-Japanese systems. Style:Text Style:Citation Break Lines Key :1 "What Prefix ?" "> " Find/Replace "^" '\CC' "gaOs-S" Style:Text Pos = SelectEnd SelectRuler (RulerStart) Clear SetSelect (Pos - 1, Pos) eval 'final = "&"' if (final <> " ") SetSelect (SelectEnd, SelectEnd) ; Exit Clear Exit pleaseSelect: :1 "Please Select Citation!" //end of macro I hope this helps. Best regards, Nobumi Iyanaga Tokyo, Japan >Hi, Mary. The reason for the missing spaces in the quote is that I'm using >my own quote macro, but it's not perfected yet. I still have to fix the >"deleted space" problem. > >The quote macro that came with NE just puts in the quote marks at >beginnings of lines, and assumes that the text to be quoted already has >hard CRs at the end of each line. But lots of emails don't have them, so a >foolproof quote macro will provide for either case. Also, I want to paste >the quote in my email editing window (NW of course) and have it prepared as >a quote at the same time, i.e., everything is done in a single operation. >So that's why I'm working on my own macro for the purpose. > >So the "bug" is in my macro, not NE. > >-------- >Rick Davis >rdavis@yin.or.jp >http://www.yin.or.jp/user/rdavis/
This archive was generated by hypermail 2b29 : Sat Aug 05 2000 - 23:00:11 AEST