.#" 28) mailutils ' require" 32+ Mailaliases$ HOME & getenv, .addressbook & dircat / custom_variable" 35& Mailrc * is_defined.*" 37 & Mailrc+& MAILRC & getenv& Mailrc" 38 & Mailrc $ NULLA." 39$ HOME & getenv' .mailrc & dirca t& Mailrc/c/b(" 44 - Mailalias_buf+, *mailalias*- Mailalias_buf," 48y0 mailalias_xAlias,*" 53 # raw . space_to_comma+*" 55 # str $ list+ $ list" 57 & Mailrc & strlen." 59 . space_to_comma." 60 # raw! ! , / str_replace_all# raw/c/c " 63 # raw! , + strcompress# raw" 64 # raw" 44! 0 ' strchop." 66 ' strtrim 0 mailalias_xAlias# str" 67 # str & strlen." 69 $ list & strlen." 70$$ ,\n $ list/c" 72 # str$ list/c/" 75 $ list ' strtrim" 53y/ mailalias_xList,* " 83 % alias+*" 85 $ name $ addr+ + Null_String$ addr*" 86 % name0 % name1+" 88 % alias & strlen. $ addrw/b" 89 % alias! @ ) is_substr % alias! < ) is_substrD." 92 % alias! < ) is_substr. % alias/.! < % alias9! >9/dw/c" 96 # bob" 9 7 % alias! 9 + bol_fsearch % right. % aliasw/b.# 103 ) push_mark# 104$$ ^ \n * skip_chars# 105 ) bufsubstr# 106! 1 ( go_right/p# 109 - X_USER_BLOCK0$ name# 111 $ name! 0" 44 / extract_element% name0# 112 $ name! 1" 44 / extract_e lement% name1# 113 % name1 $ NULLA. % name1/c# 114 % name1 ' strtrim! 9 % name0 ' strtrim9 ' strtrim$ name# 117! " $ name9" " 9$ name# 119" 40 / looking_at_char.# 121 + Null_String$ name# 122! 1 ( go_right# 123 ) push_mark# 124" 41 , fsearch_char.$% ^ \n * skip_chars/b# 125 ) bufsubstr! 1 / mailalias_xList$ addr/.# 129 - X_USER_BLOCK0$ addr# 130! < $ addr9! >9$ addr/d# 132 $ name $ addr9" 83y0 mailalias_xAlias,*# 139 % alias+*# 141 $ name $ addr+*# 142 ! n+# 144 % alias ' strtrim% alias# 146 % alias & strlenN# 147 % alias" 64 $ char ) is_substrD.# 148 % aliasw/c# 151& alias % alias9! 9$ name# 153 # bob# 156! ! ' replace# 158 $ name + bol_fsearch! n# 159 ! n.# 162& gr oup % alias9! 9$ name# 163 $ name + bol_fsearch! n# 164 ! n. % aliasw/b/b# 167 ! n ( go_right# 169 $ addr.# 174 * skip_white# 175 $ eolp.v/c# 176 ) push_mark# 177$$ ^ \n * skip_chars# 178 ) bufsubstr$ name# 179 $ addr & strlen.$ $ ,\n $ addr/c# 180 $ name$ addr/e# 182 $ addr# 139y- mailrc_xAlias,*# 187 % field+*# 189 $ addr # buf+ ' whatbuf# buf# 191 % field ; mailutils_get_keyword_value$ addr# 192 $ addr $ NULLA.w/c# 195 - Mailalias_buf & setbuf# 196! $ ad dr! 0 / mailalias_xList9$ addr# 197 # buf & sw2buf# 198 % field $ addr ; mailutils_set_keyword_value# 187y0 mailalias_xField,*# 208 # buf+ ' whatbuf# buf# 211 ) push_spot# 212 - Mailalias_buf & setbuf# 213 + Mailaliases + insert_file! 0?.# 215! 0 8 set_buffer_modified_flag# 216 # buf & sw2buf# 219% From:) Reply-To:$ Bcc:# Cc:# To:.*# 221 & header+& header# 222 & header 0 mailalias_xField//.# 227 # buf & sw2buf/d# 229 - Mailalias_buf & delbuf# 230 ( pop_sp ot# 205y0 mailalias_expand# 239}+ Mailaliases}& Mailrc.# 241" $1# 242 " $1M ) stat_file" $2# 243 " $2 $ NULLB.# 245 " $2"' st_size! 0A.# 246 " $1/c/c/# 253! 1 + Mailaliases + file_statusA.# 2551 . ()mailrc_xAlias $ eval# 256 + Null_String& Mailrc/.# 259! 1 & Mailrc + file_statusA.# 261B . (mailrc_xAlias) mailalias_xAlias $ eval# 262 & Mailrc+ Mailaliases/.# 2671 . ()mailrc_xAlias $ eval# 2684 . ()mailalias_xAlias $ eval# 2693 . ()mailalias_xList $ eval # 2704 . ()mailalias_xField $ eval# 2714 . ()mailalias_expand $ eval# 272 + Null_String+ Mailaliases/d/d