Return to mh-unmark.ml CVS log

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

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

1.1       root        1: ; This function implements the "u" command of mhe.
                      2: ; It removes a delete or move mark that has been placed on a
                      3: ; message. To do this, we must remove the "D" or "^" flag in the header
                      4: ; line, and also remove the message number from the requisite "rmm"
                      5: ; or "file" command in the command buffer.
                      6: (defun 
                      7:     (&mh-unmark
                      8:        (pop-to-buffer (concat "+" mh-folder))
                      9:        (if (! mh-writeable)
                     10:            (error-message "Sorry;  this folder is read-only."))
                     11:        (beginning-of-line)
                     12:        (goto-character (+ (dot) 3))
                     13:        (if (= (following-char) 'D')
                     14:            (progn
                     15:                  (save-excursion 
                     16:                      (temp-use-buffer "cmd-buffer")
                     17:                      (beginning-of-file)
                     18:                      (if (error-occured 
                     19:                              (re-search-forward
                     20:                                  (concat "^rmm +" mh-folder
                     21:                                          " .*\\b" (&mh-get-msgnum) "\\b"))
                     22:                          )
                     23:                          (message "Can't find msg num!!!")
                     24:                          (progn (delete-previous-word)
                     25:                                 (delete-previous-character)
                     26:                                 (end-of-line)
                     27:                                 (backward-word) (backward-word)
                     28:                                 (if (looking-at
                     29:                                         (concat "^rmm +" mh-folder))
                     30:                                     (progn 
                     31:                                            (kill-to-end-of-line)
                     32:                                            (kill-to-end-of-line))
                     33:                                 )
                     34:                          )
                     35:                      )
                     36:                      (setq buffer-is-modified 0)
                     37:                  )
                     38:            )
                     39:            (= (following-char) '^')
                     40:            (progn
                     41:                  (save-excursion 
                     42:                      (temp-use-buffer "cmd-buffer")
                     43:                      (beginning-of-file)
                     44:                      (if (error-occured 
                     45:                              (re-search-forward
                     46:                                  (concat 
                     47:                                          "^filem -src +" mh-folder
                     48:                                          " +.*\\b" (&mh-get-msgnum) "\\b"
                     49:                                  )
                     50:                              )
                     51:                          )
                     52:                          (message "Can't find msg num!!!")
                     53:                          (progn (delete-previous-word)
                     54:                                 (delete-previous-character)
                     55:                                 (end-of-line)
                     56:                                 (backward-word)
                     57:                                 (backward-character)
                     58:                                 (if (looking-at "+")
                     59:                                     (progn 
                     60:                                            (beginning-of-line)
                     61:                                            (kill-to-end-of-line)
                     62:                                            (kill-to-end-of-line)
                     63:                                     )
                     64:                                 )
                     65:                          )
                     66:                      )
                     67:                      (setq buffer-is-modified 0)
                     68:                  )
                     69:            )
                     70:        )
                     71:        (if (! (eobp))
                     72:            (progn 
                     73:                   (delete-next-character)
                     74:                   (insert-string " ")
                     75:            )
                     76:        )
                     77:        (setq buffer-is-modified 0)
                     78:        (another-line)
                     79:     )
                     80: )
                     81: 

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