Return to mh-move.ml CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / mhe

Annotation of 43BSD/contrib/mh/miscellany/mhe/mh-move.ml, revision 1.1.1.1

1.1       root        1: ;  This autoloaded file defines the "^" command in mhe. It marks a message
                      2: ; to be moved into another folder. This mark is represented in two ways:
                      3: ; a "^" character is placed in column 4 of the header line, and the number
                      4: ; of the message is placed in the text of an appropriate "file" command 
                      5: ; in the command buffer. When it is autoloaded, it redefines the function
                      6: ; &mh-re-move (defined as a no-op in the base file) so that it will repeat
                      7: ; the last move command with the same destination but a new source.
                      8: 
                      9: (defun 
                     10:     (&mh-move
                     11:        (progn
                     12:              (pop-to-buffer (concat "+" mh-folder))
                     13:              (beginning-of-line)
                     14:              (goto-character (+ (dot) 3))
                     15:              (if (| (= (following-char) ' ') (= (following-char) '+'))
                     16:                  (progn
                     17:                        (setq mh-last-destination
                     18:                              (get-folder-name "Destination" "" 1))
                     19:                        (&mh-xfer mh-last-destination)
                     20:                  )
                     21:              )
                     22:              (another-line)
                     23:        )
                     24:     )
                     25:     
                     26:     (&mh-re-move
                     27:        (pop-to-buffer (concat "+" mh-folder))
                     28:        (beginning-of-line)
                     29:        (goto-character (+ (dot) 3))
                     30:        (if (| (= (following-char) ' ') (= (following-char) '+'))
                     31:            (progn
                     32:                  (&mh-xfer mh-last-destination)
                     33:            )
                     34:        )
                     35:        (another-line)
                     36:     )
                     37:     
                     38:     (&mh-xfer destn
                     39:        (progn 
                     40:               (setq destn (arg 1))
                     41:               (delete-next-character)
                     42:               (insert-string "^")
                     43:               (setq buffer-is-modified 0)
                     44:               (temp-use-buffer "cmd-buffer")
                     45:               (beginning-of-file)
                     46:               (set "stack-trace-on-error" 0)
                     47:               (if (error-occured 
                     48:                       (re-search-forward 
                     49:                           (concat "^filem -src +" mh-folder " +" destn))
                     50:                   )
                     51:                   (progn 
                     52:                          (end-of-file)
                     53:                          (insert-string
                     54:                              (concat "filem -src +" mh-folder " +" destn "\n"))
                     55:                          (backward-character)
                     56:                   )
                     57:               )
                     58:               (set "stack-trace-on-error" mhe-debug)
                     59:               (end-of-line)
                     60:               (insert-string (concat " " (&mh-get-msgnum)))
                     61:               (setq buffer-is-modified 0)
                     62:               (pop-to-buffer (concat "+" mh-folder))
                     63:        )
                     64:     )
                     65: )

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.