Hey Emiel!
On , Emiel Meppelink wrote to All about Qedit 
for mailing:
This macro for QEdit 3C repairs the lousy quoting, done by Terminate.
* goes to start of file. Can be used immediately when tmail has passed over
* to QEdit                                                                 
f11 BegFile                                                                
    CursorDown 5                                                           
                                                                           
* the special code for TerMail-quotes - wordwraps paragraphs, who's lines  
* starts with quotes ending on >. The paragraph's must be seperated by     
* blank lines and are handled top-down in the text, (after use off f11).   
                                                                           
f9  SaveSettings             * saves the old values for Q                  
    SetSoundOff                                                            
    SetScreenOff                                                           
    SetAutoIndentMode        * auto indryk foruds‘tning for wrap af afsnit 
    Begin:                                                                 
    isLastLine               * Auto-stop hvis filen er k›rt igennem, kun   
    jTrue Quit:              * aktuelt, hvis makroen s‘ttes til rundk›rsel 
     EndPara                 * Find f›rste linie i afsnittet ved           
     CursorDown              * f›rst at g† ned under afsnittet             
     jFalse Quit:            * Stopper, hvis afsnittet er sidste i teksten.
                             * Dvs. TMails underskrif.                     
     PrevPara                * og derefter til starten af afsnittet        
      GotoColumn '25' Return * Looks for the quote-mark backwards in the   
                             * linens first 25 signs.                      
      MarkLine                                                             
      Find ' in use in the text (on the same  
                                  * line), this part is left out           
      Find '>' Return 'BL' Return * looks locally for the last > on        
                                  * the line                               
      UnmarkBlock                                                          
      isCurrChar '>'        * indeholder linien ikke en > g†r makroen til  
                            * n‘ste linie                                  
      jFalse Quit:          * Stopper, hvis f›rste linie ikke indeholder   
                            * quote-m‘rket >.                              
       DropAnchor           * marks first part of the line with the quote  
       Begline                                                             
       Cut                  * the quote on 1. line in the paragraph is p†  
                            * saved internally in Q3                       
       Quote2:                                                             
       Paste                * and the quote of 1. line is pasted back, to  
                            * keep the line-lenght                         
       FillBlock ' ' Return * and then the quote is replaced by spaces     
                            * before wordwrap                              
       UnmarkBlock                                                         
       CursorDown              * skift til n‘ste linie                     
        Quote3:                                                            
        GotoColumn '25' Return * Looks for the quote-mark backwards in     
                               * the lines first 25 signs.                 
        MarkLine                                                           
        Find ' brugt inde i teksten (p† samme
                                     * linie), springes dette over         
        Find '>' Return 'BL' Return  * hvor slut p† quoten findes          
        UnmarkBlock                                                        
        isCurrChar '>'       * testing if the paragraph is ended  - blank  
                             * line or without quote                       
        JFalse Wrap:                                                       
         DropAnchor          * if the line contains >,                     
         Begline             * the quote-part is deleted.                  
         DeleteBlock                                                       
         isEmptyLine         * har tmail lavet en linie uden tekst ved en  
                             * fejltagelse?                                
         jTrue Tom_linie:                                                  
         Jump Quote2:        * gentages for resten af linierne i afsnittet 
          Tom_linie:                                                       
          DelLine                                                          
          Jump Quote3:       * gentages for den n‘ste linie i afsnittet    
           Wrap:                                                           
           CursorUp          * finds the first blank line                  
           isEmptyLine       * above the paragraph                         
           JFalse Wrap:                                                    
           CursorDown        * goes to the first line in the paragraph     
           WrapPara          * word-wraps the paragraph                    
           Fill:                                                           
           CursorUp                                                        
           isEmptyLine       * finder f›rste blanke linie                  
           JFalse Fill:      * f›r afsnittet                               
           Fill2:                                                          
           CursorDown        * g†r en linie ned                            
           isEmptyLine       * check af, om afsnittet er afsluttet         
           jTrue Quit:       * stopper makroen ved en blank linie          
            BegLine          * g†r til liniens start                       
            MarkColumn       * marks the blank signs in the start          
            FirstNonWhite    * of the lines                                
            CursorLeft 3     * This value decides the quantity of spaces   
                             * after the final quote                       
            DeleteBlock      * Sletter de blanke karakterer                
            Paste            * copies the quote from line 1 instead        
            UnmarkBlock                                                    
            Jump Fill2:      * k›rer i ring med resten af afsnittet        
             Quit:                                                         
             MakeCtrofScreen * s† n‘ste afsnit kan overskues               
             RestoreSettings                                               
             MacroQuit                                                     
Free to use and improve
Morten
--- GoldED/2 2.50.Beta5+
---------------