DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T m

⟦5877f1dde⟧ TextFile

    Length: 1890 (0x762)
    Types: TextFile
    Names: »mh-move.ml«

Derivation

└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
    └─⟦3658e588a⟧ »EurOpenD3/mail/mh/mh-6.7.tar.Z« 
        └─⟦c75e36ecb⟧ 
            └─⟦this⟧ »mh-6.7/miscellany/mhe/mh-move.ml«

TextFile

;  This autoloaded file defines the "^" command in mhe. It marks a message
; to be moved into another folder. This mark is represented in two ways:
; a "^" character is placed in column 4 of the header line, and the number
; of the message is placed in the text of an appropriate "file" command 
; in the command buffer. When it is autoloaded, it redefines the function
; &mh-re-move (defined as a no-op in the base file) so that it will repeat
; the last move command with the same destination but a new source.

(defun 
    (&mh-move
	(progn
	      (pop-to-buffer (concat "+" mh-folder))
	      (beginning-of-line)
	      (goto-character (+ (dot) 3))
	      (if (| (= (following-char) ' ') (= (following-char) '+'))
		  (progn
			(setq mh-last-destination
			      (get-folder-name "Destination" "" 1))
			(&mh-xfer mh-last-destination)
		  )
	      )
	      (another-line)
	)
    )
    
    (&mh-re-move
	(pop-to-buffer (concat "+" mh-folder))
	(beginning-of-line)
	(goto-character (+ (dot) 3))
	(if (| (= (following-char) ' ') (= (following-char) '+'))
	    (progn
		  (&mh-xfer mh-last-destination)
	    )
	)
	(another-line)
    )
    
    (&mh-xfer destn
	(progn 
	       (setq destn (arg 1))
	       (delete-next-character)
	       (insert-string "^")
	       (setq buffer-is-modified 0)
	       (temp-use-buffer "cmd-buffer")
	       (beginning-of-file)
	       (set "stack-trace-on-error" 0)
	       (if (error-occured 
		       (re-search-forward 
			   (concat "^filem -src +" mh-folder " +" destn))
		   )
		   (progn 
			  (end-of-file)
			  (insert-string
			      (concat "filem -src +" mh-folder " +" destn "\n"))
			  (backward-character)
		   )
	       )
	       (set "stack-trace-on-error" mhe-debug)
	       (end-of-line)
	       (insert-string (concat " " (&mh-get-msgnum)))
	       (setq buffer-is-modified 0)
	       (pop-to-buffer (concat "+" mh-folder))
	)
    )
)